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CHAPITRE 1: INTRODUCTION À LA PROGRAMMATION DU DDI-1 


1,1 QUE PERMET DE FAIRE UN LECTEUR DE DISQUETTE? 


L'Amstrad CPC 464 est une machine très appréciée qui se distingue par son 
bon rapport possibilités/prix. Elle est livrée avec un lecteur de 
cassette intégré, 


Depuis peu existe également sur le marché l'Amstrad CPC 664, compatible 
vers le bas, qui possède un lecteur de disquette intégré. Le CPC 664 est 
en outre doté d’un autre clavier et son Basic a été étendu de quelques 
instructions, 


Les deux versions (comme d'ailleurs tout autre ordinateur) ne disposent 
cependant que de ce qu’on appelle une mémoire fugitive: les données et 
programmes entrés dans l'ordinateur sont perdus dès qu'on coupe le 
courant. Pour pouvoir conserver ces informations, on a besoin de mémoires 
externes telles par exemple qu’un lecteur de cassette. 


Les informations dans l'ordinateur sont alors converties en impulsions 
magnétiques et écrites sur cassette, Le procédé technique se présente 
exactement comme celui utilisé dans votre chaîne stéréo. Si vous écoutez 
une bande magnétique sur laquelle vous avez sauvegardé un programme, vous 
n'entendrez que des sons aigus assez désagréables, 


Vous avez certainement découvert, à la lecture du manuel d'utilisation de 
la machine, que vous pouvez écrire sur la cassette avec deux vitesses 
différentes, Lors de la lecture, l‘’ordinateur adapte automatiquement sa 
vitesse de lecture à la vitesse utilisée lors de l'écriture. SPEED WRITE 
vous permet d'obtenir une vitesse d'écriture du lecteur de cassette de 
1000 ou de 2000 bauds, Gue signifie Baud? Baud est mis pour “bits par 
seconde”. 1000 bauds signifie donc que l'ordinateur écrit, et lira plus 
tard, 1000 bits par seconde sur la cassette, 1000 bits, c'est-à-dire 
1000/8, soit 125 octets par seconde. Avec 2000 bauds, ce sont 250 octets 
qui seront écrits ou IuS par seconde, Pourquoi ne travaillerait-on donc 
pas toujours avec une vitesse de 2000 bauds? Tout Simplement parce qu'à 
cette vitesse le danger d’une erreur de lecture/écriture est plus grand 
et que vous risquez de ne pas retrouver lors de la lecture la même chose 
que ce que vous aviez écrit. Vous voyez certainement ce que cela 
signifie. 


Un lecteur de disquette présente l'avantage de permettre une seconde 
tentative de lecture lorsqu'une erreur de lecture s'est produite. 
Normalement, ce sont jusqu'à 10 tentatives de lecture d'un secteur qui 
seront effectuées avant que ne soit donné le message indiquant que le 
secteur n'est pas lisible. Un secteur est la plus petite unité pouvant 
etre appelée sur la disquette, Sur votre lecteur de disquette, un secteur 
comprend 512 octets. Sur un lecteur de cassette, seul un dispositif 
mécanique compliqué permettrait de faire rembobiner la bande par 
programme, sans quoi aucune nouvelle tentative de lecture n’est possible. 
Mais sur l'’Amstrad, même cela n'est pas possible. 


Pour une utilisation professionnelle, le lecteur de cassette convient 
mal, et ce pour deux raisons principales: 


1, Un lecteur de cassette est beaucoup trop lent. Les programmes 
professionnels sont toujours plus complets et donc toujours plus longs. 
Il n'est pas rare qu'ils atteignent une taille de 25 Koctets, ce qui 
signifie qu'on doit se résoudre à un long délai d'attente Ilors du 
chargement de tels programmes, Il faut en outre le plus souvent écrire et 
lire également des données, ce qui nous amène déjà au second 
inconvénient: 


2, 11 est très difficile de charger des fichiers bien définis à partir de 
la cassette. Un fichier représente soit un programme sauvegardé, soit des 
données sauvegardées, Si vous avez sauvegardé plusieurs programmes sur 
cassette, vous devez soit, ce qui est compliqué et très peu précis, faire 
défiler la bande et essayer ensuite de charger le fichier, soit laisser 
l'ordinateur chercher. le fichier voulu, ce qui signifie toutefois qu'il 
doit alors repasser sur tous les autres fichiers figurant sur la bande 
avant le fichier recherché. Vous n'avez pas sur une cassette d'accès 
direct à chaque fichier figurant sur la cassette. Les spécialistes 
parlent de “Random access”, 


Les informations arrivent séquentiellement, c'est-à-dire octet par octet 
ou caractère par caractère et vous ne pouvez commander le déroulement de 
cette procédure, Lorsque vous voulez lire le 10ème enregistrement d’un 
fichier, il vous faut d’abord lire les 9 enregistrements précédents. Avec 
l'accès direct, vous pouvez dire directement “je voudrais lire le 10ème 
enregistrement”, 


[Il est possible de remédier à ces inconvénients du travail Sur cassette: 
les disquettes offrent en effet une plus grande vitesse de travail et 


également une manipulation plus simple. 


Sur [es grosses installations, on utilise des disques durs qui sont les 
frères aînés des disquettes, Un disque dur peut contenir jusqu'à 50 
Moctets (50 Mégas = 50 millions), Toutefois on copie aujourd’hui encore 
des données importantes sur les bandes magnétiques, plus lentes, 
lorsqu'on veut archiver des données, Les bandes magnétiques conviennent 
parfaitement dans ce cas car elles occupent moins de place et sont moins 
coûteuses. 


Mais revenons au CPC et au travail sur disquette: 


ee ee ee Me Ge ue M NU Ou Ce ue Ce ee ee ee ee ee ue me Ce Our ee ee ue ee Ce ee ue Que Me Qt Que Que ee Que ee me que mn me me mn de me me ee nn me CO me me de mt me nt me 


"Bienvenue dans le cercle des heureux possesseurs d'un AMSTRAD DDI-1. 
Vous verrez vite que votre décision était la bonne et vous ne regretterez 
pas votre investissement,“ 


C'est ce que vous promet le manuel d'utilisation de votre lecteur de 
disquette AMSTRAD DDI-1. Nous voulons avec cet ouvrage vous convaincre de 
[Ia Justesse de cette phrase d'introduction en vous montrant les 
possibilités que recèle ce lecteur de disquette. 


1,2 LA DISQUETTE 


1,2,1 L'évolution 


Il y encore quelques années, la plupart des disquettes avaient un format 
de 8 pouces. Ces disquettes se révélèrent cependant peu pratiques; un peu 
plus tard furent alors développées les disquettes 5 pouces 1/4 que l'on 
utilise aujourd'hui sur presque tous les ordinateurs familiaux ou 
personnels (IBM, Apple, Commodore, Sirius, etc.,.). Une révolution 
s'annonça avec Apple LISA et Macintosh qui utilisent des disquettes 3 
pouces et demi et le DDI1-1 d'Amstrad travaille même avec des disquettes 
de 3 pouces. La miniaturisation avance donc visiblement également dans le 
domaine des mémoires externes. 

Comme on produit encore très peu de disquettes trois pouces, elles sont 
jusqu’à présent assez chères. Mais une chute des prix ne devrait pas 
tarder, de sorte qu'elles ne coûteront vraisemblablement dans un an que 
la moitié de leur prix actuel. 


Vous connaissez certainement les disquettes 5 pouces 1/4 qui se composent 
d'une enveloppe en plastique souple et d’un disque disposé à l'intérieur. 
Sur vos disquettes, ces disques sont cependant protégés, pour des raisons 
de sécurité, par un boîtier en plastique dur, Vous ne pouvez plus non 
plus atteindre avec vos doigts l'ouverture prévue pour la tête de 
lecture/écriture (voir figure 1 (1)). Cette ouverture est en effet dotée 
d'une fermeture métallique qui ne s'ouvre que Jorsque la disquette est 
introduite dans le lecteur de disquette. 


Il en va de même pour l'orifice d'index (2). Les disquettes ont un 
orifice d‘'index pour que le lecteur de disquette “sache” toujours quand 
une nouvelle rotation se produit. Les orifices d'index sont reconnus par 
un faisceau lumineux. Cet orifice permet donc en fait au lecteur de 
disquette de s'orienter, Il existe aussi des lecteurs de disquette qui 
n'ont pas besoin de cet orifice d'index mais ces lecteurs sont en général 
plus lents car il faut alors résoudre ce problème par programmation. 


Ces deux ouvertures sont protégées par un clapet que vous pouvez, EN 
FAISANT TRES ATTENTION, écarter avec votre doigt. Prenez votre disquette 
dans la main, face B dirigée vers le haut, l'ouverture de la tête de 
lecture/écriture tournée vers l'extérieur, Introduisez ensuite votre 
ongle dans le rail de gauche jusqu’à ce que vous rencontriez un bouton en 
plastique blanc (3) que vous pouvez maintenant tirer vers vous jusqu’à la 


butée. Vous voyez que l'orifice d’index ainsi que l'ouverture pour la 
tête de lecture/écriture sont maintenant libérés. Examinez maintenant 
directement la véritable disquette sur laquelle sont stockées les 
informations. Mais ne la touchez surtout pas avec vos doigts! Au milieu 
se trouve l'orifice de commande par lequel la disquette est prise et 
tournée. Si vous faites maintenant, avec beaucoup de précautions, pivoter 
la disquette avec votre autre main, vous pourrez voir également l'orifice 
d'index, Refermez maintenant la disquette, en relächant le bouton blanc. 


ll nous reste pour terminer à parler des deux ouvertures qui servent à la 
protection contre l'écriture (5), Sur le bord gauche de chaque disquette 
se trouve un orifice doté d'une petite flèche, Il Sert à protéger une 
disquette contre l'écriture, Vous connaissez déjà ce principe pour votre 
lecteur de cassette, Lorsque l'orifice est fermé, vous pouvez écrire sur 
la disquette. Mais vous pouvez également repousser le bouton plastique, 
de façon à ce que l'orifice soit ouvert. Dans ce cas, il ne sera plus 
possible d'écrire sur la disquette, ce qui est très intéressant lorsque 
vous avez sur une disquette des programmes précieux dont vous voulez 
éviter à tout prix qu'ils ne soient effacés par mégarde. Sur Îles 
disquettes fournies par Amstrad et qui contiennent CP/M et LOGU, le 
bouton doit être poussé du haut vers le bas, Sur les disquettes d’autres 
constructeurs, les choses sont légèrement différentes mais tout aussi 
simples, | 


Vous pouvez utiliser les deux faces de vos disquettes, Pour les 
disquettes 5 pouces 1/4, cette possibilité était indiquée par 
l'inscription “Double sided”; un luxe qu'il fallait payer, Sur votre 
Amstrad, il est cependant évident que vous pouvez utiliser les deux faces 
de vos disquettes, Vous pouvez stocker 180 Koctets sur chaque face, soit 
360 Koctets ou 360 000 caractères sur une disquette. 


Pour placer une disquette dans le lecteur de disquette, il vous faut 
simplement la prendre dans la main et l’enfoncer avec précaution dans le 
lecteur de disquette, en suivant le sens de la flèche, jusqu'à ce que 
vous entendiez un claquement sourd: la disquette est alors bien en 
position dans le lecteur. Pour Ia retirer, appuyez sur le bouton qui se 
trouve à droite de l'ouverture prévue pour la disquette, C'est ce bouton 
qui permet “l'éjection” de la disquette, Mais n'actionnez Jamais ce 
bouton lorsque votre lecteur est en train de travailler! Ceci pourrait en 
effet se traduire par une perte définitive de données. 


Faites également attention à ce qu'aucune disquette ne se trouve dans le 


lecteur de disquette aussi bien lors de la mise sous tension que lors de 
la mise hors tension; ceci pourrait en effet également provoquer une 
perte de données du fait des pointes de tension qui se produisent alors 
Sur la tête de lecture/écriture. 


Une disquette que vous venez d'acheter est encore “brute”, un peu comme 
une feuille de papier non quadrillée, Avant qu'une disquette ne puisse 
etre utilisée, il faut la formater, un peu comme on quadrille une feuille 
de papier pour qu’on puisse ensuite véritablement écrire dessus. 

Nous vous expliquons au chapitre 2 (CP/M) comment vous pouvez formater 
une disquette. 


Figure 1 


(2) orifice à'index 
orifice de cbmmande 





(3) poussoir plastique 5) protection 
cohtre l'écriture 


étiquette (1) tête lecture/écriture 


1.2,2 LA DISQUETTE FOURNIE AVEC LE LECTEUR 


Lorsque vous achetez un DDI-1 ou bien sûr également lorsque vous achetez 
un CPC 664, vous recevez une disquette système. Sur cette disquette 
figure le système d'exploitation CP/M et sur la face B également Dr. 
LOGO, Le langage LOGO est maintenant très apprécié. Il avait été 
développé pour rendre possible à des enfants de “programmer” des 
ordinateurs. Si vous voulez utiliser le LOGO, sachez qu’il existe sur ce 
langage une littérature spécialisée assez abondante, 


Dans le manuel fourni avec la disquette figurent toutes les instructions 
LOGO, expliquées parfois au moyen de petits exemples, Dr, LOGO signifie 
Digital Research Logo et il s’agit d’une version du LOGO adaptée à 
l'Amstrad CPC. On a augmenté le langage LOGO de quelques instructions de 
son de façon à ce que ces possibilités de l’Amstrad CPC puissent 
également être utilisées, D'autre part les touches curseur ont été 
également intégrées pour l'édition du programme. 


|,.5 QUELQUES NOTIONS SUR CP/M 


[.3,1 QU'EST-CE QUE CP/M? 


Ur la face À de votre disquette se trouve le système d'exploitation 
CP/M. CP/M Signifie Control Program for Microcomputers., CP/M existe sur 
lies ordinateurs dotés des processeurs très répandus que sont le 8080, le 
8085 et le Z80, Qui possède un ordinateur travaillant sous CP/M peut 
accéder à une grande bibliothèque de logiciels utilisateur. CP/M présente 
l'avantage que très peu ou même aucunes modifications ne sont nécessaires 
pour faire tourner un programme existant sur un autre ordinateur, Il 
existe sous CP/M des tables de saut pour certaines routines (telles que 
la Sortie sur écran, etc...) qui ont été définies une fois pour toutes. 
Ces tables de saut sont appelées par les programmes CP/M de sorte que les 
adaptations nécessaires sont ramenées au minimum, Les routines de base 
correspondantes sont chargées sur chaque ordinateur lors de la mise en 
place de CP/M, 


Vous verrez que vous n'aurez pas longtemps à attendre avant que le 
premier logiciel CP/M, comme par exemple WORDSTAR, ne devienne également 
disponible sur votre CPC. 


Un autre avantage vient de ce qu’un utilisateur qui a appris à utiliser 
CP/M peut également travailler sur n'importe quel autre ordinateur sous 
ce système d'exploitation, Qui a appris le Basic sur un ordinateur X est 
par contre encore loin de pouvoir programmer avec succès en Basic sur 
n'importe quel ordinateur Ÿ, Contrairement à CP/M qui est très 
Standardisé. Sur votre disquette figure CP/M 2,2, Vous en aurez de toute 
façon besoin pour formater ou copier des disquettes mais vous pouvez 
également l'utiliser tout autrement, Si vous voulez pour cette raison 
apprendre CP/M, Île marché des ouvrages techniques vous offre un très 
large choix, 


1.3,2 CHARGEMENT ET LANCEMENT DE CP/M 


Une remarque préalable: lorsque vous travaillez avec votre lecteur de 
disquette, allumez toujours en premier le lecteur de disquette et ensuite 
seulement le moniteur et l'ordinateur, Sinon une procédure de test qui 
identifie tous les périphériques connectés enregistrera que le lecteur de 
disquette n’est pas connecté et toutes les instructions qui devraient 


normalement être envoyées au lecteur de disquette seront adressées comme 
auparavant au lecteur de cassette. 


Introduisez maintenant la disquette système dans le lecteur de disquette 
de façon à ce que son étiquette puisse être lue de l'extérieur et que la 
flèche avec l'inscription CP/M soit pointée vers le haut. Entrez 
maintenant ICPM. (Remarque: I est mis pour le trait vertical que vous 
obtenez à l'écran lorsque vous actionnez simultanément les touches SHIFT 
ÊT:, &) 

Maintenant CP/M est chargé de la disquette dans l'ordinateur. 

Vous obtenez le message suivant: 


CPM 2,2 - Amstrad Consumer Electronics plc, 
Â> 


Dès maintenant, toutes les instructions Basic Sont inopérantes.,. Vous 
pouvez en faire l'expérience en entrant par exemple: 


run 


CP/M vous répond: 
RUN? 


ce qui signifie “Mais Je ne connais pas l'instruction RUN". Vous avez 
certainement déjà remarqué qu'un “A>" se trouve dans la première colonne. 
Il s’agit de ce qu'on appelle “promptsymbol” ou symbole d'interrogation. 
On vous indique ici que l'ordinateur attend vos ordres et qu'il est 
commuté sur le lecteur A, Si vous ne possédez qu'un lecteur de disquette, 
vous obtiendrez toujours ce message; si vous possédez deux lecteurs, vous 
rencontrerez également le symbole d'interrogation B>, 

Mais essayez maintenant une instruction compréhensible pour CP/M: 


dir 

Vous obtenez instantanément sur l'écran le catalogue de la disquette, dir 
est mis ici pour le mot anglais signifiant catalogue, Directory. 

1,3,3 FORMATAGE DES DISQUETTES 


Formater signifie préparer une disquette brute pour 1e lecteur de 
disquette. Une disquette non-formatée est pour le lecteur de disquette 


comme une feuille de papier sur laquelle on a écrit à l'encre blanche. 


Pour formater une disquette, vous devez entrer sous CP/M l'instruction 
suivante: 


format 
Sur l'écran apparaît: 
Please insert disc to be formatted into drive A then press any key 


Retirez maintenant la disquette CP/M et placez dans le lecteur la 
disquette que vous voulez formater, Lors du formatage, toutes les 
informations éventuellement stockées sur une disquette sont effacées, 
c'est-à-dire que si vous formatez une disquette qui était déjà formatée 
et sur laquelle vous aviez sauvegardé des programmes ou d’autres 
informations, ces programmes seront perdus. C'est pourquoi il convient 
lors d’un formatage de se hâter avec lenteur car une fois que vous avez 
fait formater une disquette, il n’y a plus de contre-ordre possible. Une 
fois que vous avez changé la disquette, appuyez sur n'importe quelle 
touche et le formatage commencera aussitôt, Chaque face de la disquette 
est formatée avec 40 pistes qui sont disposées de façon concentrique 
autour de l'orifice de commande, de la piste 0 à la piste 39. La piste 0 
est à l'extérieur, la piste 39 à l'intérieur. Outre les pistes, il existe 
cependant encore d’autres subdivisions de la disquette, les SECTEURS. La 
disquette est en effet subdivisée en 9 secteurs qu’on peut comparer à des 
parts de gâteau. 

On ne peut lire la disquette que secteur par secteur, La division en 
pistes et Secteurs se retrouve Sur la plupart des systèmes de disquette, 
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SECTEUR 


BLOC (512 OCTETS) 
PISTE (TRACK) 





FIGURE 2 
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ne façon générale, il faut distinguer les termes suivants: piste, 
vecteur, bloc et enregistrement, 


Une PISTE est, comme nous l'avons expliqué, un qauarantième de la 
disquette. Chaque piste a 9 secteurs dont chacun comprend 512 octets. 


Il existe cependant pour CP/M encore une autre subdivision, ce qu'on 
appelle les ENREGISTREMENTS. Un enregistrement ne comprend ni plus ni 
moins de 128 octets. Chaque secteur comprend donc 4 enregistrements. 
Cette subdivision est nécessaire pour des raisons de compatibilité avec 
CP/M, 


AMSDOS connaît encore une autre, la dernière possibilité de subdivision, 
1es BLOCS, Un bloc comprend 1024 octets et est donc constitué de 2 
secteurs, Un bloc est la plus petite unité pouvant être appelée en Basic. 


Mais revenons à notre véritable sujet, le formatage. 


Après que les 40 
pistes aient donc été formatées, le système vous 
demande : 


Do you want to format another disc (Y/N): 


Si vous voulez donc par exemple formater l'autre face de la disquette, 
répondez y pour “Yes=oui”; vous pouvez cependant également faire ainsi 
formater n'importe quelle autre disquette. 

Le formatage peut être répété aussi souvent que vous le voulez, jusqu’à 
ce que vous répondiez à la question par un n pour "No=non”, Le système 
vous demandera alors: 


Please insert a CP/M system disc into drive À then press any key: 

Vous pouvez maintenant actionner n’importe quelle touche, vous n'êtes pas 
en effet obligé de changer la disquette car le système a placé, lors du 
formatage, le système CP/M (mais pas les fichiers d'instructions comme 
par exemple l'instruction format) sur les deux pistes extérieures de la 
disquette. 


Lorsque vous voulez formater une disquette, celle-ci ne doit pas être 
protégée contre l'écriture. Sinon vous obtenez le message: 


Drive A:disc is write protected 
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Retry, Ignore or Cancel? 


Ce message vous indique que la protection contre l'écriture empêche le 
formatage, Il existe encore d'autres messages d'erreur semblables pour 
lesquels vous pouvez également choisir entre: 


a) Retry Lorsque vous voulez essayer encore une fois, appuyez sur 
la touche “r". 


b) ignore Si vous voulez ignorer le message d'erreur du lecteur de 
disquette, celui-ci poursuivra son travail, Actionnez à 
cet effet la touche “ji”, Ceci est cependant rarement 
conseillé car des effets inattendus peuvent alors se 
produire lors des instructions suivantes, 

c) Cancel En actionnant la touche “c" vous interrompez la procédure 
de travail en cours, C'est aussi ce que vous devriez faire 
dans notre exemple, de sorte à d’abord, s'il y a lieu, 
retirer la protection contre l'écriture, 

1.3.4 COPIE SOUS CP/M 

ll est très facile de copier sous CP/M le contenu d'une disquette entière 

sur une autre disquette. Si vous ne disposez que d'un lecteur, entrez 

l'instruction: 


disccopy 


Si vous disposez de deux lecteurs, vous pouvez utiliser l'instruction 
copydisc qui travaille plus vite. 


Après que vous ayez entré disccopy, l'ordinateur vous demande: 


Please insert source disc into drive A 
then press any key 


Si vous obtenez toutefois sur l'écran le message: 
DISCCOPY? 


cela signifie que ce n'est pas la disquette CP/M qui se trouve dans le 
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lecteur de disquette, 


Retirez maintenant la disquette CP/M du lecteur. Si vous voulez cependant 
cupier la disquette CP/M elle-même, ce que vous devriez absolument faire 
au moins une fois, laissez la disquette CP/M dans lé lecteur. Actionnez 
rafntenant une touche quelconque. 


Copying started 
Reading track O0 to 7 


L'ordinateur lit maintenant les 8 premières pistes (=tracks) et les 
charge dans l'ordinateur. Lorsque cela est terminé, vous obtenez le 
messade: 


Please insert destination disc into drive À 
then press any key 


Retirez maintenant la disquette source du lecteur de disquette et 
introduisez la disquette sur laquelle doivent être copiés les fichiers, 
Si votre disquette objet n'est pas encore ou si elle est incorrectement 
formatée, celle-ci sera d'abord formatée, D'autre part, toutes les 
données figurant sur la disquette seront effacées car c'est une copie 
intégrale de la disquette source qui est effectuée, On ne peut plus 
distinguer en théorie et en pratique la copie de l'original. 


Après avoir placé la disquette objet dans le lecteur et après avoir 
actionné une touche quelconque, vous obtenez le message: 


Writing track O to 7 

Répétez la même procédure de travail pour les pistes (tracks) 8 à 15, 16 
à 23, 24 à 31 et 32 à 39, La copie de la disquette est alors terminée et 
vous obtenez le message: 

DO you want to copy another disc (Y/N): 

Si Vous ne voulez pas copier d'autre disquette, entrez N et suivez les 


Instructions qui vous sont données à l‘’écran., Pour effectuer une autre 
copie, la procédure est exactement la même. 


- 14 - 


HARDCOPY D'UNE PROCEDURE DE COPIE 


EL EE 


mm mm mm mm 


OISCCOPY 


OISCCOPY Y2.0 


PLEASE [NSERT SOURCE DISC INTO DRIVE A THEN PRESS ANY KEY. 
COPYING STARTEO 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 
READING TRACK 7 

PLEASE INSERT DESTINATION OISC INTO DRIVE À THEN PRESS ANY KEY.. 
FORMATT[NG MHILST COPYING 

MRITING TRACK O0 

MRITING TRACK 
MRITING TRACK 
MRITING TRACK 
MRITING TRACK 
MRITING TRACK 
WRITING TRACK 
MRITING TRACK 7 

PLEASE INSERT SOURCE O1SC INTO DRIVE À THEN PRESS ANY KEY 
READING TRACK 8 

READING TRACK 9 

READING TRACK 10 

READING TRACK 11 

READING TRACK 12 

READING TRACK 19 

READING TRACK 14 

READING TRACK 15 

PLEASE INSERT DESTINATION OISC INTO DRIVE A THEN PRESS ANY KEY _ 


D A à Q à = © 


D Un & OO Fo — 
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1,5,5 COPIE AVEC DEUX LECTEURS DE DISQUETTE 


Vous ne pouvez utiliser l'instruction COPYDISC que si vous avez deux 
lecteurs de disquette, La procédure est Semblable à celle de 
J'instruction DISCCOPY que nous venons de décrire. L'avantage de cette 
Instruction, comme nous l'avons déjà indiqué, est cependant que vous 
n'avez plus à échanger sans arrêt les disquettes source et objet. 


Avec l'instruction  COPYDISC également, la disquette objet est 
automatiquement formatée si nécessaire, Pour le reste vous avez 
Simplement à suivre les instructions qui vous sont données à l'écran. 


1.3.6 DISCCHK - VERIFICATION DES DISQUETTES 


Après avoir réalisé une copie, vous pouvez également vérifier si tout à 
bien été copié correctement; il serait en effet rageant que votre 
disquette originale se détériore et que vous constatiez ensuite que la 
copie est également en mauvais état (ce qui peut se produire de temps en 
temps). Pour vérifier les disquettes source et objet, entrez 
l'instruction: 


discchk 


Suivez alors les instructions sur l'écran qui vous demandent de placer 
dans le lecteur la disquette originale ou la disquette de copie, Si des 
différences sont constatées entre la disquette originale et la disquette 
objet, vous obtenez le message: 


Failed to verify destination disc correctly: 
track x sector y 


La comparaison des deux disquettes se poursuit malgré tout, de sorte que 
d’autres divergences éventuelles peuvent étre affichées de la même façon. 
Ce sont toujours 8 pistes qui sont comparées consécutivement, Si vous 
avez deux lecteurs de disquette la comparaison s'effectuera nettement 
plus vite et plus simplement. Utilisez dans ce cas l'instruction: 


chkdisc 


Vous n’avez plus alors qu'à disposer les disquettes source et objet en 
vous conformant aux instructions qui vous sont données à l'écran et les 
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deux disquettes seront comparées exactement comme avec l'instruction 
discchk, 

Vous pouvez par ailleurs interrompre l'exécution de toutes les 
instructions CP/M en tenant simultanément enfoncées les touches [CTRL] et 
FC", Si vous avez par exemple entré par erreur l'instruction format, vous 
pouvez revenir avec [CTRL]I-C à la procédure d'entrée de CP/M, 


Voici maintenant une liste des autres fonctions de contrôle: 


[CTRLIC =Interruption de l'instruction actuelle 

[CTRLIS Arrête la sortie Sur écran. En appuyant sur n'importe 
quelle touche, vous pouvez faire se poursuivre la sortie 
sur écran, 

[CTRLIP =Commutation sur la sortie Sur imprimante, c'est-a-dire 
que la sortie sur écran est envoyée sur l'imprimante, 

[CTRL]Z =Fin du texte, Est utilisé par exemple lors des entrées de 
texte, 


1,3,7 FORMATS DE FORMATAGE SPECIAUX 


Lorsque vous voulez par exemple formater une disquette ne devant 
comporter que des données ou lorsque vous voulez utiliser une disquette 
exclusivement pour y stocker des programmes Basic, vous n'êtes pas obligé 
de copier également le système d'exploitation CP/M. CP/M est placé sur 
les pistes O0 et 1. Mais sur une disquette de données, vous n'avez pas 
besoin de CP/M, de sorte que vous gaspilleriez ainsi l'emplacement occupé 
par ces deux pistes, Pour éviter ce gaspillage, on peut utiliser une 
instruction Spéciale: 


format d 


Lorsque vous utilisez cette instruction au lieu de format, la disquette 
est formatée sans recevoir le système d'exploitation CP/M,. Vous avez 
ainsi plus de place à votre disposition pour des données ou des 
programmes, Voici les différentes possibilités de formatage: 


format formatage avec copie de CP/M 

format d formatage en format de données, sans CP/M 
format ji formatage en format IBM 

format v formatage en format Vendor 
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C'est toujours la disquette se trouvant dans le lecteur de disquette 
standard (A) qui est formatée, Il n'est malheureusement pas possible de 
formater une disquette qui se trouve dans un autre lecteur. 


Le format le plus usuel pour vous est le premier si vous travaillez sous 
CP/M ou le second si vous ne travaillez pratiquement qu'en Basic sous 
AMSDOS, On formate ici 9 secteurs par piste. Dans le format système, Îles 
secteurs sont numérotés de #41 à #49 (hexadécimal), Les pistes réservées 
sont occupées comme Suit: 


Piste O0, secteur #41 :Secteur boot 

Piste O0, Secteur #42 Secteur de configuration 
Piste 0, secteur #43-#47 ‘inutilisé 

Piste O0, secteur #48,#u9 : COMME : 

Piste 1, Secteur #41-#49 :CCP et BDOS 


CCP = Console Command Processor 
BDOS = Basic Disk Operating System 


Le format Vendor est identique au format système, sauf que le système 
d'exploitation CP/M n'est pas copié, Ce format est utilisé dans 
l'industrie des logiciels car on ne peut pas vendre CP/M avec Îles 
logiciels, 


Le format DATA-ONLY 


Le formatage est le même que pour le format système, 40 pistes de 9 
secteurs chacune sont formatées. Les secteurs sont numérotés de HCI à 
#C9, CP/M n'est pas copié, de sorte que les deux pistes supérieures, la 
piste O0 et la piste 1 sont disponibles pour l'utilisateur. Vous avez 
ainsi 2*9*512=9216 octets de plus à votre disposition, 


Le format 1BM 

Le formatage se fait avec 8 secteurs par piste (#1-#8). Une piste est 
réservée, Ce format est évidemment le même que le format de disquette 
utilisé sur l1’IBM PC sous CP/M,. 


Ce format ne doit être utilisé que pour une utilisation spécifique, il 
n'est pas sinon à recommander, 
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1,3,8 INSTRUCTIONS TRANSITOIRES ET RESIDENTES 


Sous CP/M il faut distinguer entre ce qu'on appelle les instructions 
transitoires et les instructions résidentes, Les instructions résidentes 
sont automatiquement disponibles après Ile boot (c'est-à-dire le 
chargement général du système) de CP/M, Elles résident alors formellement 
dans la mémoire comme autrefois les rois dans leurs châteaux. 


il s’agit des instructions suivantes: 
SAVE, A:,B:,DIR,ERA REN, USER et TYPE, 


Mais la plus grande partie, de très loin, des instructions appartiennent 
au groupe des instructions transitoires. Les instructions transitoires 
doivent être d'abord chargées à partir de la disquette, avant que 
l'ordinateur ne puisse les exécuter. Il s'agit des instructions: 


AMSDOS, BOOTGEN, CHKDISC, CLOAD, COPYDISC, CSAVE, DISCCHK, DISCCOPY, 
FILECOPY, FORMAT, SETUP et SYSGEN. 


Ces instructions tournent exclusivement sur l'Amstrad CPC, d'autres 
fournisseurs utilisent cependant des programmes utilitaires semblables 
sous des noms semblables ou identiques. Voici d'autres instructions CP/M 
transitoires standardisées: 


ED, MOVCPM, PIP et STAT, 

Vous trouvez ces fichiers sur votre disquette système CP/M. Les noms de 
fichiers sont marqués par un ,CO0M. Vous pouvez par exemple trouver sur 
votre disquette Ie fichier FILECOPY.COM (en utilisant l'instruction DIR), 
Les instructions transitoires ne sont pas disponibles si elles n'ont pas 
été copiées avec DISCCOPY, COPYDISC, FILECOPY ou PIP, 


Pour avoir une réplique exacte de votre disquette CP/M, vous devez la 
copier soit avec: 


DISCCOPY (pour les ordinateurs avec un seul lecteur) ou avec COPYDISC 
(pour les possesseurs de deux lecteurs de disquette), 


Vous pouvez également copier tous les fichiers transitoires avec: 


FORMAT et ensuite avec FILECOPY *.* 
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Une autre possibilité est de ne copier que les fichiers transitoires que 
vous utilisez le plus souvent. C'est ainsi que vous pouvez par exemple 
négliger les instructions PIP, COPYDISC et CHKDISC lorsque vous n'avez 
qu'un seul lecteur, Il vous restera ainsi plus de place sur votre 
disquette, 


1.3.9 COPIE DE FICHIERS AVEC FILECOPY 
Pour copier différents fichiers, utilisez l'instruction: 
filecopy 


Si vous avez toutefois deux lecteurs de disquette, vous pouvez également 
utiliser l'instruction CP/M PIP. 
Si vous voulez copier tous les fichiers d'une disquette, entrez: 


filecopy *,* 


Un nom de fichier est constitué de deux parties séparées entre elles par 
un point ”,”, La première partie est le nom de fichier proprement dit et 
la seconde partie est le type de fichier. La première partie peut 
comporter jusqu'à 8 caractères, la seconde jusqu'à 3 caractères. Cette 
règle ne vaut pas seulement, sur votre lecteur DDI-1, sous CP/M, mais 
également sous AMSDOS, Il existe par exemple les types de fichier 
suivants: 


Type indéfini. Il pourrait s'agir par exemple d'un fichier créé en 
Basic qui a été ouvert sans type de fichier au moyen de 
l'instruction OPENOUT. 


. BAS 11 s’agit ici d'un programme Basic qui a été sauvegardé avec 
l'instruction Basic SAVE"“programme” ou SAVE"programme”,P ou 
SAVE”programme,bas”,a, 


.BIN Sauvegarde d’une zone de mémoire ou d’un programme machine. 


.BAK 11 s'agit ici de ce qu’on appelle un Backup, une copie de 
sécurité, Lorsque vous sauvegardez par exemple un programme sous 
AMSDOS et que vous utilisez un nom sous lequel un programme a déjà 
été sauvegardé, AMSDOS crée alors automatiquement un fichier 
Backup. Cela se produit pour des raisons de sécurité, pour que 
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vous n'effaciez par un fichier par mégarde, Mais si vous 
sauvegardez encore une autre fois un programme sous le même nom, 
l'ancien fichier Backup est effacé, le dernier fichier devient le 
fichier Backup et votre nouveau programme est sauvegardé sous le 
nom ”’Nom.Bas”, 


COM Il s'agit ici de fichiers d'instruction dans lesquels sont 
sauvegardées des instructions, C'est ainsi que tous les programmes 
utilitaires de CP/M sont de ce type de fichier, 


DAT ]1l s’agit d'un fichier qui a été par exemple créé sous AMSDOS par 
un programme de gestion de fichier (comme dans le présent 
ouvrage), 


.SEQ Le fichier est de type “séquentiel”. Le lecteur de disquette DDI1-1 
dispose uniquement de ce type de fichier, tous les fichiers sont 
sauvegardés de façon séquentielle. 


Il n'y a au fond que deux modes de sauvegarde sur lesquels sont fondés 
tous les autres modes. Ce sont a) la sauvegarde séquentieile et b) la 
sauvegarde relative de données. Le DDI-1 ne dispose de façon standard que 
du mode le plus simple, la sauvegarde séquentielle de données, Nous vous 
permettrons cependant dans le présent ouvrage de réaliser aussi des 
fichiers relatifs sur votre DDI-1 (voir Chapitre 5), 


Par ailleurs, toute autre désignation de type de fichier est imaginable 
car ici n'importe quelle combinaison de trois lettres est autorisée. Les 
types de fichiers que nous vous avons présentés ici sont toutefois les 
plus usités, 


1,3,10 LES WILD CARDS 


Les étoiles utilisées dans l'instruction filecopy *.* sont ce qu'on 
appelle des wild cards (=cartes sauvages ou jokers). Ces jokers peuvent 
souvent vous faciliter la vie, Mais que sont donc les jokers? II y a deux 
formes de jokers, les étoiles et le point d'interrogation. Si vous copiez 
un fichier avec l'instruction FILECOPY MATHS,BAS, le programme FILECOPY 
charge le fichier MATHS.BAS en mémoire et l'écrit ensuite sur Jla 
disquette objet sous exactement le même nom, Vous avez ainsi spécifié de 
façon très précise quel fichier devait être copié. Il y a cependant 
souvent des cas où vous voulez copier (ou appeler) plusieurs fichiers 
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différents portant des noms semblables, Supposons par exemple que vous 
vouliez copier exclusivement tous les programmes Basic, donc tous les 
programmes dont le nom se termine par un ,BAS. Il vous faudrait pour cela 
examiner le catalogue, noter tous les fichiers dont le nom se termine par 
un ,BAS puis copier ces fichlers les uns après les autres avec 
l'instruction filecopy Nom.BAS. C'est certainement assez pénible. Pour 
éviter cela, il y a heureusement les jJokers que vous ne trouvez 
d'ailleurs pas uniquement sous CP/M,. 


Dans notre exemple, vous n‘'aurlez plus à entrer que l'instruction 
suivante: 


filecopy *.BAS 

et tous les programmes Basic seraient copiés. L'étoile signifie “quelle 
que soit la première partie du nom de fichier, s'il s’agit d'un programme 
Basic, alors copie-le”, 


Seront donc ainsi copiés tous les programmes Basic. 


ll est aussi possible de ne placer l'étoile qu'après un ou plusieurs 
caractères. Par exemple: 


filecopy f*.,* 


signifie copie tous les fichiers qui commencent par un “f”, quel que soit 
leur type de fichier. Les fichiers: 


“faineant .bas“ 

"femme.seq”“ 

seraient ainsi copiés. 11 existe cependant un autre joker, le point 
d'interrogation. Un point d'interrogation remplace, en n'importe quelle 
position, une lettre, 

On aurait donc pu également écrire au lieu de filecopy f*.*, filecopy 
f22???2?7?,??? ou filecopy f*.77? mais aussi filecopy f7??7??7??7,*, Si vous 
avez par exemple sauvegardé un agenda sur disquette, vous pourriez avec 


l'instruction: 


filecopy 05-7?,* 
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faire copier tous les rendez-vous du mois de mai pour les années 
précédentes, à condition bien entendu que le format du nom de fichier 
corresponde à ce modèle. 

filecopy 171 copierait tous les fichiers qui ont un 1 en première et en 
troisième positions, alors que tous les caractères autorisés seraient 
imaginables pour l'emplacement du milieu. 


Lorsque vous utilisez l'instruction filecopy *.*, on vous demande si vous 
voulez copier tous les fichiers ou si vous voulez effectuer une 
Sélection, On vous montre les noms de fichier les uns après les autres et 
vous pouvez décider chaque fois (avec y pour oui et n pour non) si le 
fichier doit être copié. 


1,3,11 L'INSTRUCTION DIR 


Avec l'instruction DIR vous pouvez faire éditer le catalogue de la 
disquette, Vous pouvez d'autre part effectuer une sélection, c'est-à-dire 
que vous pouvez exclure certains fichiers, Ceci est obtenu grâce à 
l'utilisation des jokers, Si vous négligez les paramètres, on suppose que 
vous avez entré *,*, L'instruction DIR a les effets suivants: 


DIR ‘affiche tous les fichiers 
DIR B: ‘affiche tous les Re du lecteur B: 
DIR *,BAS ‘affiche uniquement les fichiers BASic 


DIR FILECOPY,COM ‘affiche uniquement _e fichier FILECOPY.COM pour 
autant qu'il soit présent sur la disquette 


Les fichiers sont affichés dans l'ordre dans lequel ils ont été créés, 
c'est-à-dire que le premier fichier que l’on a sauvegardé sur la 
disquette sera exactement le premier présenté dans le catalogue. 


1,3,12 L'INSTRUCTION ERA 


Avec l'instruction ERA (pour ERAse), vous pouvez supprimer des fichiers 
sur la disquette, Ce ne sont toutefois que les entrées correspondant à 
ces fichiers sur la disquette qui sont supprimées, les données elles- 
mêmes ne sont pas détruites mais {1 n’est plus possible d'y accéder, Si 
vous indiquez *,*, l'instruction doit être confirmée car toutes les 
entrées de la disquette seraient ainsi supprimées. Si un fichier à 
Supprimer ainsi ne peut qu'être Iu (voir aussi 1,3.16), l'exécution de 
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l'instruction Sera interrompue, 

Instructions possibles: 

ERA DISCCOPY.COM .Supprime le fichier DISCCOPY.COM 

ERA *,SEQ .Supprime tous les fichiers marqués ,SEQ 

1,3,13 L'INSTRUCTION REN 

L'instruction REN (pour REName) permet de changer le nom de fichiers, 

REN nouveau nom=ancien nom 

Si le nouveau nom existe déjà ou si l’ancien nom n'existe pas, un message 
d'erreur est sorti. 

1,3,14 L'INSTRUCTION TYPE 

L'instruction TYPE permet de faire éditer le contenu de fichiers sur 
l'écran, S'il ne s’agit pas de fichiers ASCII, comme par exemple pour les 
programmes Basic, des symboles graphiques ou autres peuvent apparaître 
sur l'écran, 11 se peut également par exemple que la couleur du fond ou 


que le mode d'affichage soient modifiés, 


TYPE EX1.BAS ‘Affichage du programme d'exemple EX1 


1,3,15 COMMUTATION DU LECTEUR DE DISQUETTE STANDARD 


Les instructions A: et B: vous permettent, si vous possédez deux lecteurs 
de disquette, de commuter d'un lecteur de disquette à l’autre, 


B: le lecteur de disquette B: est le lecteur standard 


Le symbole d'interrogation est également modifié pour devenir B> par 
exemple. 
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1,3.16 L'INSTRUCTION PIP 


L'instruction PIP vous permet d'effectuer un transfert entre l'ordinateur 
et la périphérie, à moins que vous n'utilisiez cette instruction pour 
effectuer une copie si vous possédez deux lecteurs de disquette. 

La Syntaxe est: 


PIP<objet>=<source>. 


La <source> et l'’<objet> peuvent être des fichiers ou des périphériques. 
Vous pouvez appeler les périphériques suivants: 


Comme source: 


CON: Console = clavier 
RDR: Interface sérielle 


Comme objet: 

CON: Console = écran 

PUN: Interface sérielle 

LST: Imprimante 

Exemple ; 

Vous voulez créer un fichier que vous voulez entrer à partir du clavier: 
PIP Text.Txt=CON: 

Tout ce que vous entrez sera alors sauvegardé sur le fichier Text.ITxt, 
jusqu'à ce que vous appuyiez sur la touche [CTRL]-Z. Le fichier sera 
alors fermé, 

Vous ne pouvez pas utiliser l'instruction PIP pour copier des fichiers 
avec un seul lecteur de disquette, Utilisez dans ce cas l'instruction 
F ILECOPY. 


Autres exemples: 


PIP LST:=EX2,BAS Sort le fichier Basic EX2.BAS sur imprimante 
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PIP CON:=EX2,BAS Sort le fichier Basic EX2,BAS sur écran, Cette 
instruction est semblable à l'instruction TYPE 
EX2.BAS 


1.3,17 L'INSTRUCTION STAT 


STAT est mis pour STATUS (statut). L'’instruction STAT vous permet d'une 
part de réaliser une sortie pratique des informations sur vos fichiers, 
de façon semblable à l'instruction DIR. 


STAT 
STAT B: 
STAT *,BAS 


sont des exemples possibles. D'autre part cette instruction vous offre 
une option très importante et très pratique. Vous pouvez rendre par 
exemple un fichier “uniquement lisible”, c'est-à-dire que vous ne pourrez 
plus effacer ce fichier par mégarde. Avec l'instruction: 


STAT *,BAS$SR/0 


tous les fichiers Basic seront dotés du statut Read-0Only. Tout effaçage 
par mégarde de ces fichiers est dès lors exclu, 


Pour supprimer ce Statut, il vous faut ajouter les caractères pour le 
Statut de lecture/écriture ($R/W) à l'instruction de base: 


STAT *,BASSR/NW 


Vous pouvez également doter un fichier du statut Système, Ce fichier ne 
sera plus alors listé par l'instruction DIR, jil deviendra en fait 
invisible. Ce fichier ne pourra d'autre part plus être copié. 11 ne sera 
plus listé que par l'instruction STAT, Si vous entrez par exemple: 


STAT *,COMSSYS 
tous les fichiers COM seront dotés du statut système, vous ne pourrez 
donc plus lister ces fichiers avec l'instruction DIR et vous ne pourrez 


plus les copier, Toutefois ces instructions peuvent continuer d'être 
appelées. 
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L'inverse de cette instruction est: 

STAT *,COMSDIR 

Cette instruction fixe le “statut catalogue”. 
Voici des instructions STAT impressionnantes: 


STAT dsk: Toutes Iles informations importantes sur le format de la 
disquette vous sont fournies, 


STAT val: Vous fournit une liste des abréviations et vous indique 
quelle est leur affectation actuelle, Par exemple CON:=TTY 
ETC. 


ou STAT dev: et STAT usr:, 


1,3,18 BOOTGEN 


BOOTGEN permet de copier les deux pistes O0 et 1 sur une autre disquette. 
Vous pouvez utiliser cette instruction lorsque vous voulez doter de CP/M 
une disquette formatée en format Vendor ou lorsque vous voulez copier un 
nouveau secteur de configuration sur plusieurs disquettes. 


1.3.19 MOVCPM et SYSGEN 


L'instruction MOVCPM vous permet de décaler CP/M dans une autre zone de 
la mémoire. Ceci est souvent nécessaire lorsque CP/M et un logiciel 
quelconque se chevauchent, Vous pouvez décaler CP/M par pas de 256 
octets. La Syntaxe est: 


MOVCPM<gr andeur >* 

La grandeur a des valeurs comprises entre 64 et 179, Le CP/M standard a 
été produit avec la grandeur 179, MOVCPM décale par exemple CP/M de 256 
octets vers le Das, 

Vous pouvez ensuite sauvegarder le CP/M nouvellement produit avec 


l'instruction SYSGEN ou le sauvegarder dans un fichier, Cette possibilité 
vous est également donnée sous MOVCPM, 
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SYSGEN écrit le résultat d'une instruction MOVCPM sur la piste système, 
[l y cependant encore trois instructions différentes à cet effet: 


SYSGEN* 


Cette instruction écrit le CP/M créé immédiatement auparavant par une 
instruction MOVCPM sur les pistes système, 


SYSGEN<nom de fichier> 


Cette instruction lit le fichier créé par MOVCPM sous le nom <nom de 
fichier> et le copie sur les pistes système, Exemple: SYSGEN CPMEXTRA,COM 


SYSGEN 


A défaut de paramètres, on vous demande quelles sont les disquettes 
source et objet et CP/M Sera copié en fonction de cela sur la disquette 
objet. Cette instruction vous permet de copier CP/M sur une disquette 
VENDOR. 


1,3,20 SETUP 


Cette instruction vous permet de modifier de façon décisive l’allure et 
le fonctionnement de CP/M, Cette instruction vous permet d'intervenir 
dans l'affectation des touches, dans l'accès à la disquette et dans 
beaucoup d'autres choses, Vous ne devriez cependant utiliser cette 
instruction qu'après vous être informé de façon suffisamment précise sur 
les effets qu'elle peut avoir. Les chapitres 3,7,3,2 et 1,5 du manuel de 
l'utilisateur du lecteur de disquette DDI-1 fournissent notamment les 
informations nécessaires à cet égard, 


1,3,21 AMSDOS 
L'instruction AMSDOS déconnecte CP/M et vous ramène à AMSDOS, Vous pouvez 


alors programmer en Basic comme à l'habitude, Vous disposez des 
instructions AMSDOS. 
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1.4 LE TRAVAIL SOUS AMSDOS 


1,4,1 QU'EST-CE QU'AMSDOS? 


AMSDOS signifie “AMStrad Disc Operating System”, AMSDOS soutient 1e 
travail avec la disquette en Basic. Respectez absolument le bon ordre 
pour la mise sous tension! C'est d'abord le lecteur de disquette qui doit 
etre mis sous tension et ce n'est qu'ensuite que vous pouvez allumer le 
moniteur et l'ordinateur, La raison en est que lors de la mise sous 
tension de l'ordinateur un test est automatiquement effectué pour savoir 
quels éléments de la périphérie (imprimante, lecteur de disquette, 
etc...) sont allumés, Si donc le lecteur de disquette est encore hors 
tension [orsque vous allumez l'ordinateur, les instructions qui devraient 
etre envoyées plus tard au lecteur de disquette seront malgré tout 
envoyées au lecteur de cassette. 


Toutes les instructions ci-dessous, qui sont normalement envoyées au 
lecteur de cassette, sont envoyées au lecteur de disquette Si vous ne 
donnez pas d'instruction contraire: 


load”nom de fichier” 
run”“nom de fichier” 
chain”nom de fichier” 
merge”nom de fichier” 
chain merge”nom de fichier” 
save”nom de fichier” 
openin"“nom de fichier” 
closein 

openout"nom de fichier” 
cioseout 

cat 

eof 

input#9 

line input#9 

print#9 

write#9 

list#9 


L’instruction Speed write se rapporte cependant toujours au lecteur de 


cassette car sur le lecteur de disquette, les vitesses de lecture et 
d'écriture (voir chapitre 1) ne sont pas variables. 
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Il existe en outre encore, EN PLUS, jies instructions suivantes, appelées 
instructions externes, Il s'agit ici d'instructions externes car ces 
instructions sont stockées dans la ROM de I'AMSDOS, c'est-à-dire dans le 
lecteur de disquette, Ces instructions ne peuvent absolument pas être 
utilisées en Basic cassette car elles ne deviennent disponibles qu'après 
la mise sous tension du lecteur de disquette, Ces instructions commencent 
par un 1 (CSHIFT et ); ce caractère introduit toutes les instructions 
dites instructions RSX, c'est-à-dire les instructions d'extension du 
Basic, Les instructions disquette ne sont toutefois pas des instructions 
RSX à proprement parler mais constituent une exception, 


Ia 

[D 

Idir 
[disc 
Idisc.in 
Idisc.out 
ldrive 
lera 

[ren 
Itape 
[tape.in 
Itape.out 
[user 


Ces instructions seront expliquées encore une fois par des exemples 
spécifiques. 

1.4,2 LOAD ET RUN 

Lorsque vous voulez charger un programme à partir de la disquette, que ce 
soit pour le lancer ou pour programmer, vous devez utiliser 
l'instruction: 

LOAD”’nom de fichier” 

Cette instruction vous permet de charger des programmes Basic. Lorsque 
vous n'indiauez pas le type de fichier, AMSDOS suppose ‘, ", c'est-à- 


dire qu'aucun caractère ne figure dans le type de fichier, 


AMSDOS essaie d'abord de charger le fichier “nom de fichier. FO "Ce 
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fichier n'existe pas, il essaie de charger le fichier “nom du 
fichier .BAS", Si ce fichier n'existe pas non plus, 1] essaie enfin de 
charger le fichier “nom de fichier.BIN”, Ce n’est que si ce fichier n'a 
pas non plus été trouvé qu'un “File not found” est sorti. Vous pouvez 
cependant entrer aussi: 


LOAD”’nom de fichier.BAS" 


pour empêcher qu'AMSDOS ne charge un éventuel fichier qui existerait sous 
le nom de “nom de fichier, ne” 


[1 est bien sûr possible de charger des programmes à partir du lecteur de 
disquette B:, Il vous suffit pour cela d'indiquer le lecteur de disquette 
dans l'instruction LOAD: 


LOAD"B:nom de fichier” 


Si aucune disquette ne se trouve dans le lecteur ou Si elle n'y pas été 
placée correctement, le message d'erreur suivant apparaît: 


Drive A:disc missing 
Retry, Ignore or Cancel? 


Placez alors la disquette correctement dans le lecteur et actionnez la 
touche ”r" pour “Retry”, c'est-à-dire réessayer. 


Notez qu'il n'est pas nécessaire d'indiquer le type de fichier. AMSDOS 
ajoute automatiquement au nom de fichier le suffixe “.BAS" lors du 
chargement et de la sauvegarde des programmes Basic. Si vous avez 
toutefois sauvegardé un programme sous un autre nom avec une autre 
désignation que ”.BAS", vous pouvez également charger ce fichier avec 
l'instruction: 


LOAD'"nom de fichier.xxx" 


Vous pouvez remplacer ici xxx par la marque de type de fichier 
correspondante, 


Si toutefois le fichier “nom de fichier“ n'existe pas (par exemple parce 
que vous avez mal entré le nom de fichier), vous obtenez le message 
d'erreur : 
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Nom de fichier. not found. 


Vérifiez alors votre nom de fichler et essayez encore une fois sl 
nécessaire. 


Si vous obtenez le message d'erreur Type mismatch, cela signifie que vous 
avez oublié d'entrer les guillemets au début du nom de fichier. 


Le message d'erreur: 


Drive A:read fail 
Retry, Ignore or Cancel 


indique qu'une erreur de lecture s’est produite sur la disquette, C'est 
probablement que votre disquette est défectueuse (ou que vous n'avez pas 
placé la bonne disquette dans le lecteur). Il Se peut également que votre 
disquette n’ait pas été formatée correctement dans le format Amstrad. 


Le message: 

Press PLAY then any key: 

signifie que la connexion entre l'ordinateur et l'interface ou entre 
l'ordinateur et le lecteur de disquette n'est pas bonne. Il se peut 
également que vous n'ayez pas allumé le lecteur de disquette en premier, 
Une autre possibilité est que vous ayez utilisé l’instructlon Itape.in, 
entrez alors: 


Idisc 


et essayez à nouveau. Si vous obtenez le même message d'erreur, ételgnez 
votre ordinateur et allumez-le à nouveau, 


Comme en Basic cassette, il est possible de faire démarrer les programmes 
automatiquement après leur chargement, On utilise également à cet effet 
l'instruction: 

RUN'"nom de fichier” 

[] n’y a cependant plus comme en Basic cassette la possibilité d'utiliser 


l'instruction RUN” car vous devez définir précisément le nom du fichier à 
charger. Les mêmes messages d'erreur expliqués pour LOAD, avec les mêmes 
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conséquences, valent pour l'instruction RUN”nom de fichier”. 


Vous remarquerez notamment lors du chargement des programmes Basic 
combien votre lecteur de disquette est rapide par rapport au lecteur de 
cassette, 


Vous pouvez tout aussi naturellement utiliser également les autres 
instructions Basic de chargement, Pour l'utilisation des instructions: 


CHAIN"#nom de fichier”, MERGE“nom de fichier” et CHAIN MERGE”nom de 
fichier“ 


nous vous invitons à vous reporter au manuel d'utilisation. 


Une très utile possibilité est constituée par le fait que vous pouvez 
sous AMSDOS, comme sous CP/M, définir des Users. Si vous avez déjà 
examiné un catalogue, vous avez certainement constaté que la première 
ligne est: 


Drive A:user 0 


Vous pouvez définir des numéros user de 0 à 15, le numéro user standard 
est O0, Par l'intermédiaire des numéros user, vous pouvez appeler 
différents catalogues, c'est-à-dire que vous pouvez par exemple placer 
sous user O0 uniquement les instructions CP/M et sous user 1 vos 
programmes Basic et les données, Si vous voulez charger un programme de 
user 1, vous avez deux possibilités pour le faire. La première consiste à 
définir le user avec l'instruction IUSER: 


FUSER, 1 


vous permet de le faire, Vous pouvez alors charger le programme avec 
LOAD"nom de fichier”. Après chargement du programme, vous vous trouvez 
encore dans user 1, Jusqu'à ce que vous le redéfinissiez, La seconde 
possibilité consiste à indiquer le user dans le nom de fichier: 


LOAD"“1:n0om de fichier” 
Chargera un programme du user 1, auel que soit votre statut user actuel. 
Vous devez donc indiquer le numéro user, suivi d'un double-point puis du 


nom de fichier, de même que pour le choix du lecteur de disquette, Si 
vous voulez sélectionner Simultanément le lecteur de disquette et le 
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numéro user, il vous faut indiquer d'abord le numéro user, ensuite le 
ie teur de disquette et placer enfin le double-point, Exemple: 


|LOAD"8B:Nim” 


chargera le jeu “Nim” à partir du lecteur B, user étant 8. La syntaxe est 
(Honc : 


LOAD"<NoUser><Drive>:Nom de fichier” 


«<NoUser> est un numéro user quelconque entre O0 et 15, <Drive> est mis 
pour le nom du lecteur de disquette sélectionné, donc soit À, soit B. 


1.4,3 LES INSTRUCTIONS FICHIER 


Pour traiter des fichiers avec le lecteur de cassette, on a besoin des 
instructions: 


OPENOUT"nom de fichier” 
OPENIN”nom de fichier” 
CLOSEOUT 

CLOSEIN 

INPUT#9 

LINE INPUT#9 

PRINT #9 

WRITE #9 


Le programme suivant écrit les 100 premiers nombres sur un fichier sur 
cassette: 


10 REM ======ssssssesesseeseess------——- 
20 REM Programme exemple de fichiers données 
30 REM ==-========2222ssseseseesessesesesz22s 
HO: 

50 OPENOUT “nombres” 

60 FOR I=1 TO 100 

70 PRINT#9,I 

80 NEXT 1 

90 CLOSEOUT 

100: 

110 REM ===========2222222222222-2 <= 
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120 REM Maintenant lire 

130 REM ====z=sess2ee=seemenenee=esesessezzse 
140: 

150 MODE 1:PEN 1 

160 PRINT”Rembobinez la bande” 

170 PRINT"et frappez une touche” 

180 D$=INKEYS$S:REM *** Vide le buffer *** 
190 IF INKEY$=-”" THEN 190 

200: 

210 OPENIN"nombres” 

220 WHILE NOT EOF 

230 INPUT V9,I 

240 PRINT 1, 

250 WEND 

260 CLOSEIN 

2/0 END 


Attention! Ce programme n'écrira sur la cassette que si vous n'avez pas 
connecté le lecteur de disquette à l'ordinateur. Si vous avez donc 
connecté votre lecteur de disquette à l'ordinateur, entrez encore 
l'instruction: 


I TAPE 


avant de faire exécuter le programme, Maintenant toutes les instructions 
fichiers vont à nouveau sur le lecteur de cassette, Vous pouvez ainsi 
mesurer le temps que le programme met à être exécuté, Lorsque ce sera 
terminé, entrez: 


[disc 


et lancez à nouveau le programme. Maintenant, le fichier “nombres” est 
ouvert sur le lecteur de disquette, Comme vous ne pouvez pas rembobiner 
une disquette, vous pouvez ignorer le message “Rembobinez la bande” et 
frapper directement une touche, 


Placez maintenant une disquette non protégée contre l'écriture dans le 
lecteur, de préférence une disquette que vous avez formatée pour y faire 
des expériences. Entrez ensuite RUN. 


Vous remarquerez que ce travail est exécuté beaucoup plus rapidement, En 
principe vous n'avez donc pas à changer votre façon de travailler si vous 


- 35 - 


“oulez traiter des fichiers séquentiels sur disquette et que vous l'aviez 
déja fait en Basic avec le lecteur de cassette, 

Vous pouvez également revenir avec l’Instruction I1tape au Basic cassette 
bien connu, Nous en dirons cependant plus à ce sujet au chapitre 1.4,4, 


La fonction eof, telle qu'elle Se présente dans la ligne 220 de notre 
programme d'exemple signifie End Of File, soit fin du fichier, Cette 
tonction est fausse (=0) si d'autres caractères peuvent encore étre Ius à 
partir du fichier ouvert en lecture, EOF devient vrai (=-1) si le dernier 
caractère du fichier a été lu et qu’il n'est donc plus possible de 
retirer d'autres caractères de ce fichier. Cette instruction est très 
importante lorsqu'on lit des fichiers séquentiels et que le nombre de 
caractères à lire n’est pas connu d'avance, EOF vous fournit ainsi une 
possibilité de travailler de façon très souple avec les fichiers 
séquentiels, 


Nous nous occupons ici exclusivement des instructions disquette! Les 
effets sur le travail avec le lecteur de cassette sont comparables mais 
ils n'ont pas à être décrits en détail dans un ouvrage consacré au 
lecteur de disquette. 


Entrez maintenant l'instruction: 
cat 


Vous obtenez le catalogue de la disquette sur l'écran, On entend par 
catalogue de la disquette la liste de tous les fichiers sauvegardés sur 
une face de disquette, La disquette doit être organisée; il existe à cet 
effet des blocs spéciaux sur la disquette Sur lesquels figurent les 
informations suivantes: le nom des différents fichiers, leur taille, le 
type auquel ils appartiennent et où le DOS, le Disk Operating System, 
peut trouver ces fichiers, 


Si vous examinez avec l'instruction cat ou avec Idir le catalogue de la 
disquette, vous obtenez des informations sur les fichiers figurant sur la 
disquette et sur la place encore disponible pour des sauvegardes sur Îla 
disquette, 


Si vous utilisez l'instruction cat, on vous indique en outre encore la 


longueur des différents fichiers en Koctets, ce qui manque avec 
l‘instruction Idir, La plus petite unité pour un fichier est le Koctets. 
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Les instructions Idir et cat ne sont pas identiques. Toutes deux 
affichent le catalogue de la disquette mais l‘instruction Idir affiche 
les fichiers dans l'ordre dans lequel ils ont été placés sur la disquette 
alors que l'instruction cat affiche la taille de chaque fichier et trie 
en outre les entrées du catalogue par ordre alphabétique avant de les 
Sortir sur l'écran. 11 y a donc là deux différences importantes. 


Vous allez trouver également dans ce catalogue de la disquette le fichier 
“nombres” que nous venons de créer: 


nombres . 1K 


Comme nous n'avons pas indiqué de type de fichier, aucun type de fichier 
n'est indiqué après le point. Les noms de fichiers sont toujours 
complétés par des espaces si nécessaire, de façon à ce qu’ils comportent 
toujours exactement 8 caractères. 


Vous voyez que noS 100 nombres occupent 1 Koctets, soit 1024 octets, Mais 
même si nous n'avions écrit qu’un nombre dans ce fichier, le fichier 
“nombres” occuperait de toute façon 1 Koctets puisque c'est la plus 
petite unité possible. 


Mais lancez maintenant votre programme à nouveau et voyez ce que devient 
le catalogue, Entrez RUN, puis cat, 


Vous verrez qu'il y a maintenant deux fichiers portant le nom ”’nombres”, 
Un des fichiers ne comporte pas d’indication--du-type de fichier. C'est 
dans ce fichier que figurent les 100 nombres que vous avez sauvegardés en 
dernier, Il y a cependant maintenant encore un fichier “nombres  .BAK”, 
Vous vous souvenez certainement, comme nous vous l'’expliquions dans jia 
partie consacrée à CP/M, que BAK est l'abréviation de BAcKup. Lors de 
l'ouverture du fichier nombres” avec l'instruction OPENOUT”nombres”, 
AMSDOS à testé si le fichier “nombres” existait déjà. Comme nous avions 
déjà fait exécuter notre programme une fois, ce fichier existait déjà, 
C'est d'ailleurs ce que nous avons pu constater d'après le catalogue, 
Comme AMSDOS ne veut pas effacer ce fichier, il en réalise d'abord une 
copie de sécurité sous le nom de “nom de fichier.BAK", C'est alors 
seulement que l’ancien fichier est véritablement supprimé, de façon à ce 
que le nouveau fichier puisse être ouvert sous Ile même nom. Vous 
apprécierez certainement à l'usage cette particularité d'AMSDOS. Si vous 
etes certain de ne plus avoir besoin de la copie de sécurité, vous pouvez 
également la supprimer, 
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Lorsque Vous Sauvegardez un programme Basic avec l'instruction SAVE"“nom 
de fichier” ou SAVE"“nom de fichier,.BAS",A, un programme pouvant déjà 
figurer sur la disquette sous le même nom sera également d'abord 
sauvegardé sous forme de fichier Backup, de sorte que vos programmes 
Basic sont protégés de façon assez efficace contre un effaçage inopiné, 
Essayez donc ce qui suit: 


Entrez NEW. 
NEW (ENTER) 


10 PRINT"Premiere partie.” 
20 PRINT 


SAVE "Prog" 


Le programme est sauvegardé sur la disquette sous le nom de 
“Prog BAS", Ajoutez encore les lignes: 


30 PRINT”"a ete complete, 
UO PRINT 


Entrez à nouveau l'instruction de sauvegarde d’un programme: 

SAVE"Prog" 

Vous utilisez donc exactement le même nom de fichier qu'auparavant, Vous 
pouvez maintenant entrer LOAD"Prog.BAK”, (Notez que lorsque vous entrez 
un nom de fichier il n'est pas obligatoire qu'il y ait effectivement 8 
caractères avant le point.) Si vous faites maintenant lister votre 
programme, vous constatez que c'est la première version de notre petit 
programme que vous avez chargée, Entrez maintenant: 


LOAD”Prog” 


et c’est la dernière version avec 4 lignes de programme qui sera chargée 
en mémoire, Supposons que vous complétiez encore le programme en y 
ajoutant la ligne: 

50 END 


et que vous le sauvegardiez une nouvelle fois sur la disquette, la toute 
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première version du programme qui ne comportait que deux lignes aura 
cette fois disparu. Vous trouvez maintenant notre programme de 4 lignes 
sous le nom de “Prog.BAK" et le programme actuel a pour nom “Prog.BAS", 


Si vous Sauvegardiez maintenant le programme sous le nom de “nombres”, 
aucun fichier de copie ne serait réalisé car il n'existe aucun fichier 
sous le nom de ‘”’nombres.BAS", Vos fichiers “nombres” et ‘’nombres.BAK” 
seront donc conservés, Si toutefois vous sauvegardez le programme encore 
une fois, le fichier “nombres.BAK” sera effacé et remplacé par une copie 
du programme Basic. 


Voici les autres instructions SAVE possibles: 
SAVE'"nom de fichier”,A 


sauvegarde le programme sous la forme d'un fichier ASCII. Ces fichiers de 
programme sont un peu plus longs que les fichiers de programme Basic 
“normaux” car les différentes instructions comme “PRINT” par exemple sont 
sauvegardées Sur la disquette caractère par caractère et non sous la 
forme d’un token, (Un token est un code d’un octet représentant un mot- 
clé Basic.) Les programmes qui ont été sauvegardés avec cette instruction 
peuvent également être lus caractère par caractère par un programme, 


SAVE”nom de fichier”,P 


Sauvegarde un programme protégé, c'est-à-dire qu'On ne peut plus LISTer 
le programme et qu'après une interruption par (ESC)(ESC) il n'est plus 
possible de le relancer ni de le sauvegarder. 


SAVE"”nom de fichier”,B,<adresse de départ>,<longueur> 


Cette instruction vous permet de sauvegarder une zone de la mémoire, par 
exemple la zone de la mémoire-écran, sous la forme d’un fichier binaire. 
Vous devez indiquer l'adresse de départ et la longueur de la zone de 
mémoire, Lors du chargement avec l'instruction LOAD”nom de fichier.BIN”", 
le fichier sera alors à nouveau chargé dans l'adresse originale 
correspondante. 


Vous pouvez bien sûr fournir également dans le nom de fichier pour 


l'instruction SAVE, exactement comme pour l'instruction LOAD, des 
indications sur le lecteur de disquette et sur le numéro user. 
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Vous avez certainement remarqué que vous pouvez travailler avec 
l'instruction SAVE comme vous y étiez habitué avec le Basic cassette. 
‘utilisation des autres instructions Basic de chargement et d'écriture 
de données vous Sera expliquée dans le chapitre suivant, où nous vous 
expliquerons également, par des exemples, le travail avec des fichiers 
séouentiels, 


1.4,4 LES INSTRUCTIONS SUPPLEMENTAIRES AMSDOS 


En connectant le lecteur de disquette, vous avez à votre disposition 
encore d'autres instructions disquette qui sont sauvegardées dans la ROM 
(Read Only Memory) du lecteur de disquette, Ces instructions sont 
également appelées instructions externes parce qu'elles sont définies 
dans le lecteur de disquette. 

Sans lecteur de disquette, vous ne pouvez utiliser ces instructions. Vous 
pouvez identifier ces instructions par le fait qu'elles commencent par Île 
caractère I(Touches SHIFT et @), Vous pouvez aussi bien entrer ces 
instructions directement que les intégrer dans des programmes, Voici la 
liste des instructions externes avec des exemples caractéristiques, 


Lorsqu'un mot est entouré par les caractères < et >, cela signifie qu'il 
s'agit d'un qualificatif de paramètre, Par exemple, vous trouverez 
souvent l'expression <expression alphanumérique> ce qui signifie que vous 
devez insérer à cet endroit une variable alphanumérique dans 
l'instruction. Mais si 1’ <expression alphanumérique> est placée entre 
crochets [<expression alphanumérique>}, cela vous indique que |’ 
<expression alphanumérique> peut être également négligée et qu'elle est 
donc facultative. 
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Cette instruction définit le lecteur À comme lecteur standard. Cette 
instruction est bien sûr inutile si vous n'avez qu'un lecteur de 
disquette puisque ce lecteur de disquette À est automatiquement Île 
lecteur standard. On entend par lecteur standard le lecteur de disquette 
qui est automatiquement appelé par les instructions disquette lorsque le 
lecteur de disquette n’est pas précisé dans l'instruction. Cette 
instruction est identique à l'instruction: 
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a$="a" 
IDRIVE a$ 
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Cette instruction définit le lecteur B comme lecteur standard (voir ci- 
dessus), Cette instruction est identique à l'instruction: 


a$="b" 
IDRIVE,6a$ 
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Le système CP/M est chargé à partir de la disquette. Lorsque vous 
utilisez cette instruction, il faut qu'une disquette qui a été formatée 
avec CP/M sur les deux pistes système se trouve dans le lecteur A, Il 
peut s'agir par exemple de la disquette fournie avec le lecteur de 
disquette, 
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Cette instruction vous montre le contenu de la disquette. Elle est très 
comparable à l'instruction Basic standard CAT, 

On vous montre le catalogue de la disquette ainsi que la place encore 
disponible sur la disquette. 

Si l’ <expression alphanumérique> facultative manque, on supposera *.,*, 
ce qui veut dire que tous les fichiers seront sortis (sans sélection). 
Comme nous l'avons déjà expliqué, Iles étoiles et les points 
d'interrogation sont des Jokers qui représentent n'importe quels 
caractères, En guise de rappel: un point d'interrogation signifie: ici 
peut se trouver n'importe quel caractère; une étoile signifie: à partir 
d'ici et Jusqu'à la fin du nom de fichier peuvent figurer n'importe quels 
caractères. Supposons que vous vouliez avoir une liste uniquement des 
fichiers Basic, vous l’obtiendrez avec l'instruction: 
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n$="*, BAS" 
IDIR@a$ 


L'utilisation des Jokers peut être très utile et vous faire gagner 
beaucoup de temps. Essayez de retenir l'utilisation de ces caractères de 
façon à ce que vous puissiez les mettre vous-même en oeuvre, Il arrive 
souvent en effet qu’on ne veuille par exemple avoir une liste que des 
fichiers Basic ou que des fichiers séquentiels,. Avec l'instruction IDIR, 
la Sélection que vous pouvez ainsi effectuer vous permet d'obtenir une 
plus grande clarté des informations, 


L'avantage de l'instruction CAT est qu'elle trie les noms de fichier 
avant de les sortir et qu'elle indique la taille des fichiers, 
L'instruction IDIR a l'avantage de permettre un affichage SELECTIF du 
catalogue. 
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Cette instruction comprend les deux instructions Idisc.in et Idisc.out. 
Comme vous devez utiliser les mêmes instructions Basic pour le Iecteur de 
cassette et pour le lecteur de disquette, vous ne pourriez en principe 
appéler avec succès qu'un seul des deux périphériques, Mais pour que vous 
puissiez également utiliser le lecteur de cassette lorsque vous 
travaillez avec le lecteur de disquette, les instructions Idisc et Itape 
vous permettent de sélectionner librement le périphérique d'entrée ou de 
sortie. 
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Après que cette instruction ait été entrée, les instructions d'ENTREE 
suivantes se rapporteront toutes automatiquement au lecteur de disquette, 
et non au lecteur de cassette: 


LOAD"Nom de fichier” 


RUN'Nom de fichier” 
CHAIN'"Nom de fichier” 
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CHAIN MERGE"Nom de fichier” 
MERGE"Nom de fichier” 
OPENIN"Nom de fichier” 
CLOSETIN 

EOF 

CAT 

INPUT#9 

LINE INPUT#9 


Cette instruction déconnecte à nouveau l'instruction ITAPE ou ITAPE,IN. 
Si Vous avez par exemple la séquence d'instructions suivante: 


I TAPE 

IDISC.IN 
OPENIN"Fichier" 
OPENOUT"Backup" 


un canal d'entrée sera ouvert en lecture sur le lecteur de disquette mais 
le canal de sortie écrira sur la cassette. C’est ainsi que vous pouvez 
par exemple copier des fichiers de la disquette sur la cassette (pour des 
raisons de sécurité des données), 
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Cette instruction est comparable à l'instruction IDISC.IN mais ce sont 
ici les sorties qui sont envoyées sur le lecteur de disquette. Les 
instructions suivantes sont concernées: 


SAVE”Nom de fichier” 
OPENOUT”Nom de fichier” 
CLOSEOUT 

WRITE#9 

PRINT#9 


I TAPE 

IDISC.OUT 
IOPENIN"Backup” 
IOPENOUT"Fichier” 
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C'est donc l'inverse de l'exemple donné pour IDISC.IN. Maintenant le 
fichier Backup Sera Iu à partir de la cassette avec les instructions de 
lecture mais les instructions d'écriture se rapporteront au lecteur de 
disquette. 
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Cette instruction est identique aux instructions IA et IB mais cette 
instruction est plus souple car le nom du lecteur de disquette standard à 
sélectionner peut être fourni sous forme d'une variable alphanumérique. 


a$="b" 
IDRIVE,6a$ 


aura pour conséquence que le lecteur de disquette B sera défini comme 
lecteur standard à partir du moment où cette instruction aura été 
exécutée, Vous ne pouvez bien sûr pas utiliser cette instruction si vous 
n'avez qu'un lecteur de disquette. 
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ERA est mis pour le mot anglais ERAse=supprimer., Cette instruction vous 
permet donc de supprimer des fichiers. Vous pouvez également utiliser des 
jokers avec cette instruction. Par exemple, l'instruction: 


a$="* : seq” 
IERA @a$ 


Supprimera tous les fichiers ayant le type de fichier ”seq”., I] convient 
cependant de toujours bien réfléchir avant d'utiliser cette instruction, 
notamment lorsqu'on travaille avec des Jokers, Il peut en effet arriver 
dans ce dernier cas que vous supprimiez également des fichiers que vous 
n'aviez pas l'intention de supprimer, 11 est donc déconseillé d'utiliser 
des jokers avec l'instruction IERA si l'on n’a pas encore l'habitude du 
maniement du lecteur de disquette et de l’utilisation des jokers, 


- ll - 


L'instruction: 


a$="* , # // 


IERA@aS 


supprimera tous les fichiers, Dans ce cas AMSDOS attend une confirmation 
spéciale de l'instruction, 
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REName= changement du nom d'un fichier, Cette instruction vous permet 
donc de donner un autre nom à un fichier. La première expression 
alphanumérique doit contenir le NOUVEAU nom de fichier, la seconde 
contient l'ancien nom de fichier. Si vous voulez par exemple changer le 
nom du fichier “Pepe” parce que vous préférez votre mémé, vous pouvez 
entrer les instructions suivantes: 


ancien$-="Pepe bas” 
nouveau$="Meme.bas” 
IREN, nouveau$,ancien$ 


Si vous examinez maintenant Ie catalogue avec l'instruction IDIR, vous 
verrez que le fichier “Pepe,BAS" n'existe plus et qu’il y a par contre 
maintenant un fichier “Meme,BAS", 

L'indication des deux expressions alphanumériques est obligatoire, 
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Cette instruction annule les instructions IDISC, IDISC,IN et IDISC.OUT 
et place l'entrée comme la sortie sur Ie lecteur de cassette, Cette 
instruction comprend les fonctions des instructions ITAPE,IN et 
ITAPE OUT, 
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Cette instruction fait que le lecteur de cassette sera utilisé en entrée. 
Cette instruction annule les instructions IDISC et IDISC.IN. 
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ITAPE OUT 
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Le lecteur de cassette sera utilisé comme périphérique de sortie. Cette 
instruction annule les instructions IDISC et IDISC,.OUT, 


un om ue un mue ue ue ue ue ue me un me te une Out me Mt dun Que us une eme ue nue mue ue ue ee mu (un eu mue uv un dun dune mue mg un sue uns uw mue ue ue ou onu ut ut dt dt une ten mue mnt mnte fe mes us ms uw nu ou uw ww ou uw uw mu une mme me 


muæ mue mn mu ms mn uns mu ue us ous nu ou we we Dune ue uw Du mu ie Gé Out ne don dues us us us uns es ous mu ou nu us nue Dune us du dun ue de En mule ds un ds us qu un nue us mue uns ou + un Du Du de G Du De Eu dun dt vos Go om mé 


Cette instruction vous permet de définir un user = utilisateur déterminé. 
Vous avez certainement déjà remarqué que dans les catalogues de la 
disquette apparaît également le message: 


USER: 0 


Il s’agit d’une très utile instruction spéciale CP/M. Vous trouverez des 
informations plus complètes à ce sujet au chapitre 1.,4,2, 


L'instruction IUSER vous permet par exemple de protéger vos fichiers 
contre les regards indiscrets, 
Sauvegardez donc un programme Basic quelconque de la façon suivante: 


IUSER, 3 

SAVE "Programme 

IUSER, 0 

CAT 

ou beaucoup plus Simplement avec l'instruction: 


SAVE"3:Programme” 
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Vous ne trouverez pas le programme que vous venez de sauvegarder dans Île 
catalogue, Mais si vous entrez: 


IUSER, 3 
CAT 
IUSER, O 


vous verrez s'afficher un catalogue beaucoup plus court puisqu'il ne 
comporte qu’une entrée, Vous pouvez donc constituer plusieurs catalogues 
différents ou dissimuler certains programmes à d’autres utilisateurs. 


Vous avez certainement remarqué que les instructions avec des expressions 
alphanumériques sont particulièrement difficiles à utiliser, Vous êtes en 
effet obligé d'entrer par exemple: 


a$="a" 
IDRIVE,@a$ 


alors qu‘'ii serait beaucoup plus simple d'entrer: 
IDRIVE, “a” 


Cependant le système d'exploitation Basic prévoit que l'adresse d'une 
expression alphanumérique doit être transmise au système-d'exploitation 
AMSDOS,. AMSDOS va alors lui-même chercher cette chaîne de caractères dans 
la mémoire, 


Les chaînes de caractères peuvent être placées n'importe où dans la 
mémoire. La fonction @nom de variable vous permet de faire afficher 
l'adresse à laquelle est stockée la variable, en l'occurrence une chaîne 
de caractères. Cette forme de transmission des données n'est certainement 
pas très pratique mais vous vous habituerez vite à cette procédure. 
L'instruction @ est une instruction Basic utile qui n'est pas évoquée 
dans le manuel d'utilisation, Entrez par exemple: 


a=12,2 
PRINT@ a 


Suivant le nombre de variables que vous avez déjà utilisées, la valeur 
sortie en réponse sera plus ou moins élevée, Plus une variable est 
déclarée tardivement, plus grande sera la valeur de la fonction nom de 
variable, La longueur du programme Basic actuel Joue par ailleurs 
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éyalement un rôle car la table des variables commence dans la mémoire 
immédiatement après le programme Basic, 


Lomme vous le savez peut-être, les variables numériques sont placées dans 
la mémoire de bas en haut alors que les chaînes sont situées contre la 
limite supérieure de la mémoire et se déplacent vers le bas. Vous pouvez 
vous en rendre compte avec l'exemple suivant: 


NEW 
a=10,.1:b=20:a$="Exemple 1”:b$="Exemple 2" 


PRINTO a,@b,6a$,@b$ 


Si vous examinez maintenant les adresses des variables, vous voyez que 
les variables numériques occupent 9 octets, Ici sont stockées les valeurs 
des variables a et b ainsi que leurs noms. Les variables alphanumér iques 
(chaînes de caractères) sont cependant stockées différemment. Entrez par 
exemple: 


PRINT PEEK@a$) 


Vous obtenez alors la valeur 9 qui correspond exactement à la longueur de 
la variable a$,. Il en va de même pour la variable b$. Les valeurs des 
cases mémoire: 


@a$+1 ainsi que: 
@a$+2 


constituent un pointeur. Ce pointeur indique au système d'exploitation où 
il peut trouver la chaîne de caractères elle-même. Cette méthode de 
stockage des chaînes vous Semble peut-être compliquée mais elle présente 
un avantage décisif: il n'est pas nécessaire de déplacer la totalité de 
la table des variables lorsqu'une chaîne voit sa longueur modifiée; il 
suffit de modifier les trois octets que nous venons de décrire, 


Mais faisons éditer la chaîne a$ de façon peu conventionnelle: 
al=PEEK(@a$+1)+256*PEEK(@a$+2) 


Nous avons maintenant calculé l'adresse à laquelle est stockée la chaîne 
de caractères a$. Nous avons sauvé cette adresse dans la variable ad. 
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FOR I=0 TO PEEK@a$ )-1 
PRINT CHR$(PEEK(ad+I ) ); 
NEXT 1! 


Et vous obtenez exactement le contenu de la variable a$, Vous pouvez très 
facilement changer les valeurs des pointeurs des variables 
alphanumér iques et arriver ainsi à ce que leur contenu se modifie à votre 
guise, Cette propriété Sera aussi utilisée dans Iles programmes du 
chapitre 5 (routine d'interception des erreurs et gestion de fichier 
relatif), Détournez par exemple la chaîne a$ sur votre écran: 


POKE @ a$+1,800 
POKE @a$+2,ec1 


Le pointeur de la chaîne de caractères est maintenant dirigé sur le beau 
milieu de la mémoire écran, Faites maintenant éditer la variable 
alphanumérique af: 


PRINT a$ 


Il n’est pas possible de décrire précisément l'effet obtenu car il sera 
différent suivant ce que contenait votre écran, mais il se peut que le 
cadre se mette à clignoter ou que le mode d'écriture change de lui-même. 
En tout cas vous obtenez une série de caractères indéfinis. Nous en 
terminerons ainsi avec cette introduction à l'instruction @, 
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1,5 SAUVEGARDE SEQUENTIELLE DE DONNEES 


1,5,1 QU'EST-CE QUE LA SAUVEGARDE SEQUENTIELLE DE DONNEES? 


Un lecteur de disquette ne doit bien s0r pas servir uniquement à la 
sauvegarde et au chargement des programmes; il convient en outre 
parfaitement à la sauvegarde de grandes masses de données qu'il était 
jusqu'alors, avec le lecteur de cassette, pratiquement impossible de 
maîtriser. 


Le DDI-1 ne vous permet en principe de traiter que des fichiers 
SEQUENTIELS comme ceux que vous connaissez déja d'après le Basic 
cassette: le principe est totalement identique, La sauvegarde 
séquentielle de données n'est pas la méthode la plus rapide mais c'est la 
plus simple pour sauvegarder des données. Elle est d'ailleurs tout à fait 
suffisante pour les petits ou moyens problèmes, Comme elle est d'autre 
part simple à comprendre, elle convient parfaitement à l'apprentissage, 


Séquentiel ne signifie pas autre chose que CARACTERE par CARACTERE, Un 
fichier séquentiel est donc une séquence (une suite) de caractères 
(lettres, chiffres, caractères Spéciaux etc.). Pour lire le dernier 
caractère d'un fichier, il faut lire tous les caractères situés 
auparavant, du premier à l'avant-dernier, Imaginez par exemple un livre 
de 100 pages. Pour lire la première lettre de la page 100 vous devriez 
d'abord lire TOUTES les lettres des pages 1 à 99, C'est ainsi qu’un 
fichier séquentiel est Iu; une méthode évidemment peu pratique. 
Heureusement le DDI-1 est très rapide de sorte qu’on se rend à peine 
compte de tels problèmes, 


Une possibilité nettement plus pratique pour la Sauvegarde des données 
consiste à pouvoir accéder directement à un fichier, ce que l’on appelle 
accès direct ou Random access; le terme de fichier relatif s'est 
également imposé. 


L'accès direct signifie, pour rester sur notre exemple du livre, que vous 
pouvez lire par exemple directement la 55ème lettre de la 29ème page sans 
etre obligé de lire toutes les pages précédentes, Lorsque vous en êtes 
arrivé, sur un fichier séquentiel, au 100ème enregistrement, vous ne 
pouvez plus lire de caractère appartenant au 5ème enregistrement, il 
n'est donc pas possible de revenir en arrière. C'est là une des limites à 
l'efficacité des fichiers séquentiels que l’on ne rencontre plus avec les 
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fichiers relatifs, 


Il s'agit cependant simplement ici pour nous de vous faire comprendre 
grossièrement les différences entre Iles deux types de fichier. Vous 
trouverez au chapitre 5 de plus amples informations sur les fichiers 
relatifs et sur la façon dont ils peuvent être programmés sur le DDI-1. 


Nous allons maintenant expliquer avec quelques exemples comment on peut 
utiliser de façon efficace la Sauvegarde séquentielle des données puisque 
celle-ci constitue (pour Ile moment) la seule possibilité dont nous 
disposons pour sauvegarder des données sur disquette. 


Nous allons maintenant créer notre premier petit fichier. Nous allons, à 
titre d'exemple, créer un agenda téléphonique qui nous permettra 
d'enregistrer les principaux numéros de téléphone de nos parents où amis, 


Lorsqu'on crée un fichier, Se pose toujours au début la question de 
savoir ce qu'on veut au Juste enregistrer, Dans l'exemple suivant nous 
evons choisi les indications suivantes: 


T)Nom (=Champ 1) 
2)Prénom (=Champ 2) 
3)No de tél. (=Champ 3) 


Un enregistrement est une unité cohérente, Chaque enregistrement contient 
des informations que l'on retrouve également dans tout autre 
enregistrement, Notre enregistrement se compose de trois champs. 


Nous pourrions ainsi avoir un enregistrement “Dupont” qui contienne comme 


informations les nom, prénom et numéro de téléphone de notre collègue 
Dupont, 
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) iqure 3 
LE FICHIER COMPLET 


Enregistrement 1 Enregistrement 2 Enregistrement 3 


Dupont Jourdain Peterson 
Thomas Cécile Hans-Dieter 
23 4 9 21 80 23 44 01 34 41 22 37 


Nous avons trois champs par enregistrement: 
Nom, Prénom et Numéro de téléphone 


Champ 1: Nom 
Champ 2: Prénom 
Champ 3: Numéro de téléphone 


Vous pouvez bien vous représenter, au vu de cette figure, les 
subdivisions que comporte un fichier. 

Lorsque les données sont écrites dans un fichier, il n'est pas possible 
de distinguer aussi nettement que nous l'avons fait ici sur le papier Îles 
subdivisions en enregistrements, Seuls les champs sont séparés 
physiquement les uns des autres, La séparation entre les enregistrements 
ne se distingue pas en effet de la séparation entre Iles champs de 
données; c'est le même symbole de séparation qui est utilisé. La 
séparation entre les différents enregistrements, c'est-à-dire la bonne 
affectation des champs de données incombe au programmeur. Il est le seul 
à savoir combien de champs comporte chaque enregistrement. 


Lorsque vous avez terminé une entrée à l'écran, vous actionnez la touche 
ENTER, également appelée RETOUR DE CHARIOT, en anglais CARRIAGE RETURN. 
Il en va exactement de même avec la sauvegarde séquentielle des données 
puisque les différents champs de données sont en effet séparés sur lÎla 
disquette par un retour de chariot: le code ASCII 13 est produit. 


Pour vous permettre de vous représenter plus facilement comment les 


différents champs de données sont séparés, examinons la figure 4, Le 
symbole de séparation retour de chariot est représenté par l'étoile (*), 
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Figure 4 


Dupont*Thomas*23449821*Jourdain*C.., 
Champ Champ2 Champ 3 Champ 1 


ENREGISTREMENT 1 ENREGISTREMENT 2 


Vous voyez d'après notre exemple que les champs de données ne doivent pas 
avoir obligatoirement la même longueur mais qu'ils peuvent avoir dans les 
fichiers séquentiels une longueur quelconque, il en va de même pour la 
longueur des enregistrements, Les champs de données peuvent être 
cependant clairement identifiés puisqu'ils sont séparés les uns des 
autres par le symbole de retour de chariot (*), 


Pour lire un tel fichier, on utilise l’instruction INPUT#49. 
OPENIN"Nom de fichier” 

[NPUT#9, Nom$, Prenom$, Telephonef 

CLOSEIN 


Après ces instructions, Seul un enregistrement déterminé serait lu; les 
variables pourraient avoir par exemple les valeurs suivantes: 


Nom$ ="Dur and" 
Prenom$ ="Alain” 
Telephonef ="14 22 51 33" 


Les guillemets ne servent ici qu'à indiquer le début et la fin d'une 
chaîne de caractères et ils n'appartiennent pas à la chaîne elle-même. 
Des chaînes peuvent toutefois contenir des guillemets. 


1.5,2 LA PROGRAMMATION DES FICHIERS SEQUENTIELS 


Mais nous allons maintenant créer concrètement un fichier séquentiel sur 
disquette, Entrez pour cela le petit programme suivant: 


- 53 - 


50 OPENOUT"Test.dat" 
60 PRINT#9, "Durand" 
70 PRINT#9,"Louis" 
80 PRINT#9,"14225114" 
90 REM --- premier enregistrement --- 
100 PRINT#9, "Chalet" 
110 PRINT#9, "Lucienne" 
120 PRINT#9,"23990123" 
130 REM --- second enregistrement --- 
140 PRINT#9,"Lefol" 
150 PRINT#9, "Charles" 
160 PRINT#9,"18155118" 
170 REM --- troisieme enregistrement --- 
180 ARE 
ND 


Nous avons créé un fichier sous le nom de “Test.dat” qui contient trois 
enregistrements, 

L'instruction Basic PRINT#n s'emploie exactement comme l’instruction 
PRINT normale, Vous connaissez certainement déjà l'instruction PRINT# en 
liaison avec les windows (fenêtres) que vous pouvez définir sur votre 
Amstrad, L'instruction PRINT# vous permet d'appeler une des instructions 
définies lorsque n est compris entre 0 et 7. Si n=8, c’est l'imprimante 
qui est appelée et si n=9 c’est le lecteur de cassette ou le lecteur de 
disquette, Suivant la configuration utilisée. 11 en va de même pour les 
instructions INPUT#n et LINE INPUTAn,. 


Le caractère de séparation logique Carriage Return est dans notre exemple 
placé entre les enregistrements parce que l'instruction PRINT#9 n'est pas 
Suivie d'un point-virgule. C'est donc le même principe que pour 
l'instruction PRINT simple. Si vous placez un point-virgule à la fin 
d'une instruction PRINT, la prochaine sortie sera écrite sur la même 
ligne. Pour les sorties sur Ile lecteur de disquette, vous pouvez 
également constituer un champ de données en plaçant plusieurs sorties à 
la suite l’une de l’autre. 


Mais commençons d'abord par relire nos données: 
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50 OPENIN'"Test.dat" 

60 INPUT#9, Nom$, Prenom$, Telephones$ 
70 PRINT Nom$,Prenom$, Telephones 

80 INPUT#9, Nom$,Prenom$,Telephones$ 
90 PRINT Nom$,Prenom$,Telephones 
100 INPUT#9,Nom$,Prenom$,Telephones 
110 PRINT Nom$,Prenom$,Telephones 
120 CLOSEIN 

130 END 


Vous obtenez alors la sortie suivante: 


Durand Louis 14225114 
Chalet Lucienne 23990123 
Lefol Charles 18155118 


Nous avons donc réussi à sauvegarder des données sur disquette et à les 
relire; nous pouvons ainsi dire pour récapituler: 


Avec PRINT#9 nous écrivons des données sur disquette et avec INPUT#9 nous 
pouvons les relire. L'entrée et la sortie sur disquette ne se distinguent 
donc pas trop de l'entrée et de la sortie sur écran. 


Notre exemple fonctionne donc bien mais de façon encore très peu pratique 
si l’on pense au travail qui serait nécessaire pour faire lire ainsi 100 
enregistrements. C'est une boucle qui sera ici la solution de notre 
problème et qui apportera un allègement considérable: 
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JD  REM:=SSsSs=sss=SsSSe==s=sssharssssressre 
20 REM LIRE LES DONNEES (2) 

A0 REM sssss=zssszssssssszsssssssesbanss 
40 : 

90 OPENIN'"Test.dat" 

60 FOR 1=1 TO 3 

70 INPUT#9,Nom$, Prenom$,Telephones 

BO PRINT Nom$,Prenom$, Telephones 

90 NEXT :i 

100 CLOSEIN 

110 END 


ll n'est pas nécessaire de toujours lire un enregistrement d'une seule 
traite, Vous pourriez également procéder ainsi: 


50 OPENIN'"Test.dat" 
60 FOR i=1 TO 3 

70 INPUT#9,Nom$ 

BQ PRINT Noms, 

90 INPUT#9,Prenom$ 
100 PRINT Prenoms, 
110 INPUT#9,Telephones 
120 PRINT Telephones 
130 NEXT ;i 

140 CLOSEIN 

150 END 


Vous devez vous dire qu'après l'ouverture d'un fichier, les données du 
fichier sont à votre disposition. Peu importe à cet égard que vous lisiez 
un enregistrement avec une seule instruction INPUT, comme par exemple 
avec: 


INPUT#9, Nom$, Prenom$, Telephone$ 


ou que vous lisiez l'enregistrement morceau par morceau avec plusieurs 
instructions Input, comme par exemple avec: 


INPUT#9,Nom$ 
INPUT#9,Prenom$ 
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INPUT#9, Telephones 


Lorsque vous venez de lire un enregistrement, un pointeur note 
l'emplacement où doit Se poursuivre la lecture. 


Vous pouvez également fermer prématurément un fichier que vous avez 
ouvert en lecture, Sans en avoir donc lu tous les enregistrements. 


Si vous avez cependant déja lu le dernier élément du fichier et que vous 
effectuez à nouveau une nouvelle tentative de lecture, vous obtenez le 
message d'erreur: 


EOF met 

Nous allons vous montrer cela dans un exemple. 

Chaque chiffre représente, dans l'exemple suivant, un enregistrement: 
12345678901234567890123* 


Nous avons donc 23 enregistrements: EOF est représenté par le caractère 
#*#, Après l'ouverture du fichier en lecture, le premier enregistrement 
sera lu. Le pointeur interne est simulé dans la Seconde ligne. Voici 
comment les choses se présentent de façon interne après l'instruction 
OPENIN: 


12345678901234567890123* 
L 


Le pointeur est dirigé sur le premier enregistrement: nous 1lisons 
maintenant le premier enregistrement avec l'instruction INPUT. Après que 
le premier enregistrement ait été lu, notre pointeur interne est dirigé 
sur le second enregistrement: 


12345678901234567890123* 
Î 


Lors d'une lecture, c'est maintenant le second enregistrement qui serait 


lu, Cela continue ainsi jusqu’à ce que nous en arrivions au dernier 
enregistrement de notre fichier, 
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12345678901234567890123* 
1 


Dans notre exemple, le dernier enregistrement n’a donc pas été encore Iu 
puisque le pointeur interne est dirigé sur ce dernier enregistrement. 
Nous l1iSons maintenant également ce dernier enregistrement: 


12345678901234567890123* 
Î 


Il n'y a plus maintenant d'enregistrement disponible, nous sommes arrivé 
à la fin des entrées du fichier, Le pointeur est maintenant dirigé sur 
l'étoile qui est censée représenter ici la marque EOF,. Lors de notre 
dernière tentative de lecture, le fiag EOF a été mis par le système 
d'exploitation sur vrai=-1, Une autre tentative de lecture provoquerait 
l'erreur EOF met. 


— we mn ue M de ue Me due due ut de de ss dt (ue dune dt un dun due ue une due ue dun ue us ou de due ut due de mue ue ee ut Me dune mn un due fut ue de ue ue qu due eu ut du ue ut due Cu ee ue mue ut D Out ut dite qu es Gt Ou ue D 


La fonction EOF nous indique donc si nous avons ou non déjà Iu le dernier 
élément d’un fichier. 


"2 ee ut ce cn Ce de de dt de que ce de de ue dut de me ie We un Out den ee Me due ut ut M ut mue ue ut Me ct mudt jun nue mue Mt ét de due due ue Mt ut dune Me mue ue ut ut (ue ut die due du Mt une one ut ut dun dt ue de me dune 


Pour éviter de provoquer cette erreur, nous pouvons utiliser la fonction 
Basic EOF. Quand vous ne savez pas exactement combien d'enregistrements 
vous devez lire, il est même indispensable d'utiliser la fonction ECF. 
Notre programme se présenterait alors ainsi: 


50 OPENIN'"Test.dat" 

60 WHILE NOT EOF 

70 INPUT#9, Nom$,Prenom$, felephones 
80 PRINT Nom$,Prenom$,Telephones 
90 WEND 

100 CLOSEIN 

110 END 


Cet exemple est cependant assez dangereux car nous partons du principe 
qu'il reste toujours encore trois autre champs de données tant que nous 
n'avons pas rencontré EOF, Pour les fichiers de structure inconnue, il 
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est impossible de le prévoir. Notre programme devrait donc se présenter 
ainsi: 


10 REM ========2-2=======2=-=-22==2==2=222=2=:= 
20 REM LECTURE DE DONNEES SOUPLE 

90 REM ===-====2====2==2==222=22222=2:2=2zsz 
40 : 

50 OPENIN'"Test,dat" 

60 WHILE NOT EOF 

70 INPUT#9, Champs 

80 PRINT Champs 

90 WEND 

100 CLOSEIN 

110 END 


Avec ce programme, une erreur EOF met est exclue puisqu'on teste si EOF 
après la lecture de chaque champ. 


Quand les champs de données sont lus avec l'instruction INPUT#9, les 
caractères suivants fonctionnent comme symboles de séparation entre les 
champs de données: 


Carriage Return (retour de chariot) 
Virgule (,) 
Marque EOF 


Lorsque vous lisez des variables numériques avec INPUT#9, Ia <barre 
espace> fait également office de marque de séparation. 


Ces marques de séparation sont également faciles à retenir puisque la 
virgule et le retour de chariot font également office de marques de 
Séparation avec l'instruction INPUT normale, 


Bien sûr vous pourriez également définir une marque de fin 
“particulière”, vous pourriez par exemple écrire toujours dans le dernier 
champ de donnée un “*fin” où autre. Vous pourriez alors faire rechercher 
cette marque par le programme. Vous m'accorderez cependant certainement 
que la manipulation de la fonction EOF constitue une méthode plus sûre et 
plus Simple. 


Le plus souvent, on ne veut pas simplement lire des données pour les 
Sortir immédiatement mais les données doivent encore pouvoir rester dans 
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la mémoire de l'ordinateur pour pouvoir être évaluées et modifiées. Dans 
ce cas, le mieux est de constituer un TABLEAU (ARRAY en anglais), une 
variable indexée, Si cette notion vous est inconnue, nous vous invitons à 
vous reporter au chapitre correspondant du manuel du Basic. 

Notre programme d'exemple se présenterait maintenant comme suit: 


10 DIM Nom$(3}),Prenom$(3), Telephone$S(3) 
REM 


E 
30 REM LIRE-SAUVEGARDER FICHIER 
40 REM ===-=-=:===-=-=====2===-=22=-=-222=22==2=: 


70 OPENIN'"Test.dat" 

80 WHILE NOT EOF 

90 x=x+1 

100 INPUT#9,Nom$(x),Prenom$(x),Telephone$(x}) 
110 WEND 

120 PRINT x-1; "enregistrements ont ete lus." 
130 CLOSEIN 

140 END 


Dans l’instruction DIM en ligne 10, vous devez définir la limite de 
l'index en fonction de la limite supérieure du nombre d'enregistrements. 


Avec une telle boucle, on peut lire un fichier et le placer dans un 
tableau, On peut ensuite traiter le fichier par le programme puis 
sauvegarder à nouveau le fichier de façon séquentielle, C'est ici le 
nrincipe LECTURE/ENTREE, TRAITEMENT et SORTIE qui s'applique. Quand Ja 
mémoire le permet, nous vous recommandons de faire lire vos fichiers de 
cette façon et de les faire traiter dans le programme. Cette méthode a de 
grands avantages en ce qui concerne la vitesse de traitement. 


1.5,3 LES FICHIERS SEQUENTIELS ET LES TABLEAUX 


ur les programmes d'envergure qui doivent gérer de grandes masses de 
jonnées, il est conseillé de déterminer auparavant précisément la masse 
de données prévue et de définir alors cette masse de données dans 1e 
programme, 


Si vous lisez le fichier séquentiel et que vous placiez tous les 


enregistrements dans un tableau, vous économisez beaucoup de temps de 
traitement car à partir de ce moment vous n'avez pius à accéder au 
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lecteur de disquette. (Un accès à des tableaux est toujours plus rapide 
qu'un accès à la disquette), 


Nos tableaux se présentent ainsi: 


No d'index Nom$ Prenom$ Telephones 
1 Durand Louis 14225114 

? Chalet Lucienne 2 3990123 

3 Lefol Charles 18155118 


Nous avons donc Simplement lu une fois ces données et nous les avons 
placées dans des tableaux, Nous avons ici utilisé 3 différents tableaux à 
une dimension, Il est plus pratique pour le programmeur de créer un 
tableau à deux dimensions de façon à pouvoir lui donner un SEUL nom, ce 
qui augmente la clarté du programme, 


Champ 1 Champ 2 Champ 3 
Enregistrement 1 D$(1,1) D$(1,2) D$(1,3) 
Enregistrement 2 D$(2,1) D$(2,2) D$(2,3) 
Enregistrement 3 D$(3,1) D$(3,2) D$(3,3) 
Enregistrement 4 D$(4,1) D$(4,2) D$(4,3) 
Enregistrement 5 D$(5,1) D$(5,2) D$(5,3) 


Notre tableau D$(x,y) a 5 enregistrements de 3 champs chacun, Ce tableau 
doit être “dimensionné”, c'est-à-dire créé avec l'instruction: 


DIM D$(5,3) 
Le tableau D$(x,y) pourrait avoir par exemple le contenu suivant: 
D$(x,1)=Nom 


D$(x,2)=Prénom 
D$(x,3)=Téléphone 


auparavant Nom$(x) 
auparavant Prénom$(x) 
auparavant Téléphone$(x) 


Notre programme d'exemple se présente alors ainsi: 
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10 REM ==z===-===-=2==-22-=-222=-=-2---5:----2- 
20 REM LIRE LES DONNEES AVEC DS(x, y) 
30 REM ===--===--===-=2=--=2=--222--=22=-=-- 
40 DIM d5(3,3) 

50 REM 3 enregistrements et 3 champs 

60 OPENIN'"Test.dat" 

80 FOR i=1 TO 3 

90 FOR j=1 TO 3 

100 INPUT #9,d${i,j) 

110 NEXT j 

120 NEXT : 

130 : 

140 REM ===-====--====2=2=--==22=-=2=-=-=22--: 
150 REM SORTIE 

160 REM ===-====2-=z==2--=22-22=22=-2=--22:2222- 
170 FOR i=1 TO 3 

180 FOR j=1 TO 3 

190 PRINT ds(i,j) 

200 NEXT j 

210 PRINT 

220 NEXT ;i 

230 CLOSEIN 

240 END 


Vous pouvez prendre ce programme d'exemple comme modèle si vous voulez 
vous-même écrire un programme de fichier, En imbriquant deux boucles vous 
réalisez une lecture logique pas à pas des champs de données et des 
enregistrements. Lorsque vous voulez modifier des données dans un 
programme de fichier, le mieux est de lire toutes les données et de les 
vlacer dans un tel tableau, Vous pouvez alors traiter les données, les 
corriger, etc. À la fin du programme, les données doivent alors être à 
nouveau sauvegardées sous le même nom, 

ie plus souvent on crée également un fichier auxiliaire dans lequel se 
trouvent des informations Sur la masse de données. Par masse de données 
vous devez comprendre: combien de données comporte le tableau? Combien de 
champs de données comporte chaque enregistrement? Lorsque vous créez un 
programme souple de fichier ceci est indispensable pour des raisons 
pratiques, D'autre part vous pouvez de cette façon économiser une 
précieuse place mémoire car toute coordonnée inutile coûte de la place 
mémoire et du temps. L'’instruction DIM permet également un 
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dimensionnement dynamique, c'est-à-dire que vous pouvez utiliser des 
variables comme limites d'index. Nous allons maintenant créer un tel 
fichier d'information, Nous entrerons à cet effet Ile nombre 
d'ENREGISTREMENTS ainsi que le nombre de CHAMPS de données par 
enregistrement, 


OPENOUT"Test.inf" 
WRITE#9, 3,3 
CLOSEOUT 


Nous appellerons le type de fichier "INF" pour fichier d'’INFormation. Le 
nom de fichier doit être dans notre exemple identique au nom du fichier 
(.dat). Voici cette routine souple de lecture: 


10 RÊM ======22z==2--=222-==22===522==2-=2=-2- 
20 REM ROUTINE SOUPLE DE LECTURE 

30 REM =====22==-=s=2ss2==-:=s=2=ss==2s2222z 
40 : 

50 INPUT'Nom du fichier: ";files 


60 OPENIN File$+".inf" 

70 INPUT #9, enregistrements, champs 
80 CLOSEIN 

90 : 

100 DIM d$(enregistrements, champs) 


120 OPENIN file$+".dat" 

130 FOR i=1 TO enregistrements 
140 FOR j=1 10 champs 

150 INPUT#9, d$({i,j) 

160 NEXT j 

170 NEXT : 

180 CLOSEIN 

190 END 


Lancez le programme et entrez “Test”, 


En ligne 100 le dimensionnement s'effectue alors en fonction des besoins. 
Dans les cas où le nombre d'enregistrements peut être augmenté au cours 
du déroulement du programme, il faut avoir prévu cette éventualité lors 
du dimensionnement. Une autre solution consiste à fixer auparavant le 
nombre maximal d'enregistrements; le nombre de champs peut cependant 
rester malgré tout dynamique car il est peu probable que le nombre des 
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Champs de données ait à être modifié au cours de l'exécution du 
programme. La lecture à partir d'un fichier des nombres d'enregistrements 
et de champs peut être cependant malgré tout d’une aide précieuse. Si 
vous remplacez la ligne 100 par: 


100 DIM d$(200,champs) 
vous obtenez bien un nombre de champs dépendant de chaque fichier. 


Nous avons jusqu’à présent toujours indiqué, lors de l'ouverture d'un 
fichier, un nom précis, En effet le nom de fichier n'était pas variable, 
il figurait entre guillemets et il était déja fixé lors de la 
programmation, On ouvre toutefois parfois un fichier avec une variable 
alphanumérique comme nous l'avons fait dans notre exemple (lignes 60 et 
120), Malheureusement le système d'exploitation n’est pas entièrement au 
point à cet égard, AMSDOS ouvre en effet parfois dans ce cas les fichiers 
sous un nom incorrect ou réagit par un message d'erreur, Si vous faites 
alors afficher, après ce message d'erreur, le contenu de la variable 
alphanumérique correspondante, vous pouvez vous rendre compte que le 
contenu de cette variable est pourtant correct, 

Lors de l'ouverture d'un fichier un buffer de 4096 octets est créé dans 
la RAM de l'Amstrad CPC. Ce buffer est situé la plupart du temps dans les 
régions supérieures de la mémoire. C'est cependant également dans ces 
régions que se trouvent les variables alphanumériques, 11 peut donc 
arriver assez facilement que des “collisions” se produisent ici, surtout 
lorsque vous travaillez avec des tableaux car Ile nombre de chaînes de 
caractères est dans ce cas particulièrement élevé. Cela tient au fait que 
le Système d'exploitation “nettoie” de temps à autre la mémoire car les 
manipulations de chaînes produisent beaucoup de déchet, Nous entendons 
par déchet tous anciens morceaux de chaîne qui sont devenus inutiles à la 
suite de manipulations de chaînes, Ce “nettoyage” est appelé GARBAGE 
COLLECTION, ii s’agit d'une sorte de réorganisation de la mémoire qui 
réorganise la mémoire de chaînes de caractères, Il peut se produire dans 
ce cas que le buffer disquette soit victime de cette réorganisation, 
Lorsque le buffer est décalé par la Garbage Collection, le nom de fichier 
ne peut plus être Iu correctement, La petite routine suivante vous permet 
de remédier à cet inconvénient: 


OPENOUT"Dummy” 


MEMORY HIMEM-1 
CLOSEOUT 
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Il est conseillé de placer cette instruction au début de chaque programme 
qui travaille avec la disquette. Vous devez utiliser cette instruction 
avant de définir la première variable alphanumérique, Le buffer de 4096 
octets est créé D'AVANCE et cette zone est protégée avec l'instruction 
MEMORY. À partir de ce moment, le buffer disquette ne pourra plus être 
détruit par la Garbage Collection car il sera protégé par l'instruction 
MEMORY. 


Le nom “Dummy” dans l'instruction OPENOUT ne désigne pas dans ce cas un 
fichier (puisque rien n’y sera écrit) mais il correspond dans le langage 
technique informatique à une sorte de “poubelle électronique”. 
L'instruction OPENOUT"Dummy” a en fait pour effet de créer le buffer de 
4096 octets dont nous avons parlé, La variable système HIMEM est alors 
diminuée de façon à ce que le buffer soit protégé des variables. Après un 
CLOSEOUT, HIMEM serait à nouveau relevé, mais pour éviter cela 
l'instruction MEMORY a été employée. 


Si donc vous avez obtenu un message d'erreur en faisant exécuter notre 
programme d'exemple qui ne contenait pas encore cette routine, ajoutez la 
ligne 40 suivante: 


HO OPENOUT"Dummy” : MEMORY HIMEM-1 : CLOSEOUT 


Le risque existe maintenant encore que l'utilisateur entre un nom de 
fichier incorrect ce qui entrafnerait l'interruption du programme. Mais 
cela peut également être évité, par exemple en créant un fichier dans 
lequel seront enregistrés tous les noms de fichier; ce serait en fait un 
"catalogue privé”. Nous appellerons ce fichier “Filename.dir”, 


OPENOUT”Filename.dir” 
PRINT#9, “Test” 
CLOSEOUT 


Notre catalogue privé ne contient pour le moment que l'entrée “Test”. 
Nous n'avons plus maintenant qu'à intégrer encore cette routine de test 
et un message d'erreur sera exclu. 
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19 REM =======----=----========-=-=-=------ 
20 REM ROUTINE SOUPLE DE LECTURE 

30 RE SRZ=222SSSSSSSSSSr===SE===2SSsSszs 
40 OPENOUT » Dummy":MEMORY HIMEM-1:CLOSEOUT 
50 INPUT"Nom du fichier: ";files 

60 GOSUB 1000 

70 IF trouve=0 THEN 50 

80 OPENIN Ffile$+".inf" 

90 INPUT #9,enregistrements, champs 

100 CLOSEIN 


120 DIM d$(200, champs) 


140 OPENIN files+".dat" 

150 FOR i=1 TO enregistrements 

160 FOR j=1 TO champs 

170 OINPUT#9,d${i,j) 

180 NEXT j 

190 NEXT ; 

200 CLOSEIN 

210 END 

1000 REM =====-====2==-==-==2=2==2----2------.- 
1010 REM Tester si nom autorise 

1020 REM RE 
1030 OPENIN'"Filename.dir" 

1040 trouve=0 

1050 WHILE NOT EOF AND trouve=0 

1060 INPUT#9, nom$ 

1070 IF nom$=files THEN trouve=1 

1080 WEND 

1090 CLOSEIN 

1100 RETURN 
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Un tel test ou un test semblable est indispensable pour qu'un programme 
soit d’un usage pratique, Les entrées erronnées devraient, autant que 


possible, toujours être identifiées et écartées. 


Il n'est possible d'ouvrir qu'un SEUL canal d'entrée et un SEUL canal de 
sortie. Vous pouvez donc ouvrir au maximum deux canaux en direction du 
lecteur de disquette, 


Dans la sous-routine commençant en ligne 1030, on teste s’il existe un 
fichier portant le nom file$,. À cet effet, toutes les entrées du fichier 
"Filename.dir” sont comparées à la variable file$., Si la routine 
rencontre la fin du fichier sans avoir trouvé le nom recherché, la 
variable “trouve” vaut 0, En cas de succès, cette variable est mise sur 
1, Cette valeur peut alors être testée dans le programme principal qui 
réagira comme il convient, 


Si vous voulez par exemple écrire vous même un programme de gestion 
d'adresses pratique, nous ne pouvons que vous conseiller d'intégrer de 
telles routines de protection. 


Cela suppose bien sûr que le fichier “Filename.dir” existe; si ce n'est 
pas le cas, un message d'erreur “File not found” Sera sorti. Pour éviter 
cela, on pourrait prévoir un point du menu qui pourrait s'appeler 
“Initialisation” et qui créerait ce fichier. 


Toutes ces “astuces” sont contenues dans un petit programme de gestion de 
fichier que vous trouverez au chapitre 5 de cet ouvrage. Nous vous 
conseillons d'étudier les passages correspondants de ce programme de 
façon à ce que vous compreniez bien la manipulation de ces routines. 


1.5.4 DIFFERENCES ENTRE PRINTA ET WRITE4 


Nous avons jusqu'ici utilisé uniquement l'instruction PRINT#. Vous avez 
cependant certainement déjà vu, aussi bien dans le manuel d'utilisation 
que dans le présent ouvrage, qu'il existe aussi une instruction WRITE#. 


Dans nos programmes d'exemple c'est le Carriage Return qui était utilisé 
comme marque de Séparation, Vous vous souvenez cependant certainement que 
le Carriage Return n'est pas le seul symbole de séparation et que la 
virgule (,) fait également office de symbole de séparation, aussi bien 
pour les chaînes de caractères que pour les données numériques. Pour les 
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données numériques il est en fait sans importance que la séparation soit 
faite avec des virqules, des Carriage Return où même des espaces. Par 
contre, avec les chaînes de caractères, cela peut avoir un certain nombre 
d'effets désagréables, Essayez l'exemple suivant: 


10 REM ========22222-=------------- 2-2 


30 REM ===-=--==-=2--=--===222--22----------- 
40 : 

50 OPENOUT "Demo" 

60 PRINT#9, "Chalet, Lucienne" 

70 PRINT#9,"Lefol,Charies" 

80 CLOSEOUT 

90 : 

100 REM ====--=-==------------22=-2-------- 
110 REM ET LIRE A NOUVEAU 

120 REM ===---=--=--------2222=-22-22----- 
130 : 

140 OPENIN"Demo" 

150 INPUT#9, Noml$ 

160 INPUT#9, Nom2$ 

170 CLOSEIN 

180 PRINT'Nomi = "Nomis 

190 PRINT'Nom2 = "Nom2$s 

2900 END 


Vous vous attendez certainement à ce que la sortie sur l'écran se 
présente ainsi: 


Nomi=Chalet, Lucienne 
Nom2=Lefol, Charles 


Certains d’entre vous le savent certainement déjà: le résultat produit ne 
se présente malheureusement pas ainsi, Si vous lancez le programme, vous 
pouvez constater ce phénomène mystérieux: 


Nomi=Chalet 
Nom2=Lucienne 


Vous voyez très nettement d'après cet exemple que la virgule fait office 


de symbole de séparation et que cela a entraîné avec l'instruction 
INPUT#S une séparation entre les deux chaînes de caractères, D'autre 
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part, il manque la virgule de la chaîne de caractères ainsi que l’espace 
devant “Lucienne”. La solution de ce problème est très Simple: quand on 
utilise l'instruction WRITE#, une chaîne à sortir est placée entre 
guillemets, Lors de la lecture de cette chaîne tous Iles espaces, même 
placés au début, ainsi que toutes les virgules seront acceptés dans la 
chaîne. Seuls les guillemets ne seront pas et n'ont pas à être acceptés 
dans la chaîne. 


Vous pouvez maintenant faire sortir sur l'écran différentes valeurs pour 
mieux comprendre le mode de fonctionnement de cette instruction, Entrez 
par exemple: 


WRITE 1,2,"Qui,oui,c'est comme ca.”,3 
Sur l'écran apparaît: 
1,2,"Oui,oui,c'est comme ca.”,3 


Si vous faites sortir le même texte avec l'instruction PRINT, l'image 
suivante apparaît sur le moniteur: 


1,2 Qui,oui,c’est comme ca. 3 


En effet, comme vous le savez, la virgule a pour effet avec l'instruction 
PRINT de faire sauter le tabulateur à la prochaine tabulation, de sorte 
que des espaces vides importants apparaissent, L'écriture sur disquette 
s'effectue exactement comme sur l'écran, c'est-à-dire que Iles espaces 
vides correspondants sont également écrits sur la disquette (ce qui 
d'ailleurs constitue un gaspillage de la place mémoire disponible). 


On peut cependant aisément constater que la chaîne n'est plus traitée 
comme une chaîne unique, à cause des virgules. Avec l'instruction WRITE, 
les guillemets marquent le début et la fin de la chaîne de façon 
parfaitement claire. 


Un effet Secondaire appréciable est l'économie de place mémoire sur la 
disquette lorsqu'on veut sauvegarder des variables numériques. 


On pourrait également reconstituer l’instructlon WRITE avec l'instruction 
PRINT: 


PRINT 1”,%:2;","chr$(34);"Oui,oui,c'est comme ca.”:chr$(34);",": 
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Le résultat sur l'écran ou sur la disquette sera identique avec cette 
façon d'écrire et l’on obtiendra également en lecture l'effet recherché. 
Mais l'instruction WRITE est plus simple et plus pratique et c'est 
pourquoi il est recommandé d'y avoir recours le plus souvent possible. 
Elle est particulièrement pratique lorsqu'on veut écrire plusieurs champs 
de données en une ligne Basic sur la disquette, Comme vous pouvez Île 
constater d'après le programme d'exemple, nous avons stocké sur la 
disquette un seul champ de données par ligne PRINT# et ainsi, comme aucun 
point-virgule ne figure à la fin de l'instruction PRINT#, nous avons fait 
envoyer un Carriage Return Comme symbole de séparation, Avec 
l'instruction WRITE, notre programme devient donc plus court et plus 
clair. Il se présente maintenant ainsi: 


50 OPENOUT"Demo" 

60 WRITE#9, “Chalet Lucienne" 
70 WRITE#9,"Lefol, Charles" 
80 CLOSEOUT 


140 OPENIN'"Demo" 

150 INPUT#9,Nomis 

160 INPUT#9,Nom2$ 

170 CLOSEIN 

180 PRINT"'Nomi = "Nomls 
190 PRINT'Nom?2 = "Nom?2s 
200 END 


Après avoir lancé le programme, vous constatez que nous sommes maintenant 
arrivé au résultat voulu. 


Après une instruction PRINT# ou WRITE# une marque de Séparation est donc 
AUTOMATIQUEMENT envoyée qui est le Carriage Return. Il y à cependant des 
cas où cet automatisme peut être gênant, par exemple lorsque vous voulez 
effectuer des opérations sur les chaînes de caractères pour ne les sortir 
que plus tard, Nous allons maintenant sortir tout l'alphabet en ne 
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résolvant pas cependant ce problème avec une simple instruction PRINT# 
mais en programmant une boucle. 


50 OPENOUT "Demo" 
60 FOR i=1 TO ?26 
70 PRINT#9,CHRS(64+i ); 
80 NEXT ïi 

90 PRINT#9 

100 CLOSEOUT 

110 OPENIN"Demo" 
120 INPUT#9,a$ 
130 PRINT a$ 

140 CLOSFIN 

150 END 


Nous définissons en ligne 60 une variable de boucle i, qui comptera de 1 
à 26. L’alphabet a en effet 26 lettres, Le code ASCII de “A” est 65, de 
sorte que nous pouvons calculer en ligne 70 le code ASCII du caractère à 
Sortir en ajoutant la valeur actuelle de la variable de boucle au 
décalage 64, L'important est ici que le dernier caractère en ligne 70 
soit un point-virgule. Exactement comme en Basic lorsqu'on effectue une 
sortie sur écran, le point-virgule a pour effet sur la disquette 
qu'aucune “fin de champ” n'est envoyée, de même qu'à l'écran il 
manquerait la “fin de ligne”. 


Après avoir lancé le programme, nous voyons que la variable a$ contient 
tout l'alphabet. Cela met bien en évidence la signification du point- 
virgule, Dans cet exemple, il ne faut en aucun cas utiliser l'instruction 
WRITE car la sortie sur écran se présenterait alors ainsi: 

A HOLS à LR CAN D LAS PRES CSS ES PUR Put He did 

alors que nous obtenons dans notre exemple le résultat suivant: 


ABCDEFGH...,YZ* 


(* réprésente à nouveau le Carriage Return) 
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Vous voyez qu'on doit se demander pour chaque application laquelle des 
deux instructions convient le mieux. 11 est souvent indifférent que vous 
utilisiez PRINT#9 ou WRITE#9. WRITE#9 est parfois plus intéressant, mais 
parfois aussi cette instruction est totalement inadaptée, comme dans 
l'exemple que nous venons de donner. 


Essayez de deviner quelle valeur la variable a$ aurait si on remplaçait 
la ligne 70 par: 


70 WRITE#9, CHR$(i+64); 


Lorsque vous penserez avoir trouvé la solution, modifiez la ligne et 
lancez le programme, Aviez-vous prévu Juste? Vous pouvez maintenant 
passer au chapitre suivant, 


1,5,5 DIFFERENCES ENTRE INPUT# ET LINE INPUT# 


Vous connaissez maintenant les différences qu'il y a entre PRINT#9 et 
WRITE#9, Pour la lecture des données, jil existe également deux 
instructions différentes: l'instruction normale INPUT#9 que nous avons 
toujours utilisée Jusqu'ici, et l'instruction LINE INPUT#9, Ici aussi il 
y a des différences essentielles, 


Nous nous limiterons, dans notre comparaison entre INPUT et LINE INPUT, 
aux variables alphanumériques. Les symboles de séparation peuvent être: 
le retour de chariot, la virgule et la marque EOF, Nous ne pouvons donc 
lire, avec INPUT#9, aucune chaîne contenant une virgule (sauf bien sûr si 
cette chaîne avait été placée entre guillemets) car cette virgule sera 
automatiquement interprétée comme une marque de séparation, 11 en résulte 
un autre problème: lorsque les guillemets marquent une chaîne, comment 
puis-je alors lire ces guillemets? Il est impossible de lire les 
guillemets dans une chaîne avec INPUT, cela nous le savons, 


C'est ici qu'intervient l'instruction LINE INPUT, LINE INPUT lit tous les 
caractères; seul le retour de chariot fait office de marque de 
séparation, les virgules et les guillemets sont donc également acceptés 
par LINE INPUT, 
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Lorsque vous utilisez l'instruction: 
WRITE#9,1,2,"Oui,oui, c'est comme ca.”,3 
pour écrire sur la disquette et que vous relisez cela avec: 
LINE INPUT#9, tout$ 
la variable tout$ contiendra: 
1,2,"Oui,oui, c'est comme ca.”,3 


TOUS les symboles de séparation sans exception ont donc été acceptés dans 
la chaîne, les guillemets y compris. 


LINE INPUT n'est pas toujours supérieur à l'instruction INPUT; cela 
pourrait même Ie plus souvent avoir des conséquences catastrophiques si 
vous remplaciez simplement, dans un programme existant, INPUT#S par LINE 
INPUT#9, Vous vous rendez certainement compte que cela est lié au fait 
que les symboles de séparation sont alors ignorés, Si l'on ne tient pas 
compte dans l'instruction PRINT ou l'instruction WRITE du fait que la 
[ecture se fera avec LINE INPUT, et donc si l'on n'utilise pas UNIQUEMENT 
le retour de chariot comme marque de séparation, on peut aboutir à des 
résultats assez surprenants, Lorsque vous écrivez vous-même un programme 
qui accède souvent à la disquette, réfléchissez bien avant de choisir 
quelles instructions vous utiliserez en écriture et en lecture. 


Mais voici maintenant encore un exemple où l'instruction LINE INPUT est 
indispensable parce qu'il s'agit de lire un fichier dont le contenu et la 
Structure sont inconnus. 


Chargez un des programmes réalisés dans le présent ouvrage et 
Sauvegardez-le immédiatement avec: 


OPENOUT"ASCIT .DAT" 
LIST#9 
CLOSEOUT 


Vous avez maintenant sauvegardé le listing du programme sur la disquette, 
sous le nom de “ASCII,.DAT", Un fichier de programme normal ne peut pas 
etre ouvert en lecture avec l'instruction OPENIN car un tel fichier a un 
header (=une tête de fichier) qui n’est pas accepté par l'instruction 
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OPENIN. Après que vous ayez donc LISTé un fichier de programme sur la 
disquette, entrez le petit programme suivant: 


NEW 


10 REM sssssssesanszspganenss=sss-ssssrss 
30 REM =sasssssssssessesssszzz-====------=- 


50 OPENIN"ASCII.dat" 

60 WHILE NOT EOF 

70 LINE INPUT#9,1ignes 
80 PRINT lignes 

90 WEND 

100 CLOSEIN 

110 END 


Cette routine affiche le listing de votre programme sur l'écran avec tous 
les guillemets et toutes les virgules, comme dans le programme original. 
Pour des tâches semblables, l'instruction LINE INPUT est parfaitement 
appropriée puisqu'elle va chercher sans problème tous les caractères sur 
la disquette. 


Malheureusement le Basic de l'Amstrad ne permet pas de lire des 
caractères isolés dans un fichier ouvert en lecture, comme on peut le 
faire dans d'autres version du Basic, sur d'autres ordinateurs, Cette 
possibilité aurait bien sûr l'avantage de rendre possible de lire y 
compris le caractère RETOUR DE CHARIOT. II existe cependant dans le DOS 
une routine DISC IN CHAR que vous pouvez utiliser à cet effet (voir 
également le listing du DOS) mais uniquement en langage machine, Vous 
pouvez ainsi écrire une routine adaptée à votre problème qui transmette 
le caractère lu à votre programme Basic. 


Voici une petite routine qui simule en Basic l'instruction GET, Lorsque 
vous appelez cette routine, le fichier doit être ouvert en lecture. 
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10000 REM ========22=222222=2=22====2=22==2222z 
10010 REM ROUTINE GET 

10020 REM ===========2222z====-====22222s 
10030 : 

10040 IF LEN(in$)-0 THEN 10080 

10050 ch$=LEFTS(in$,1) 

10060 in$=MIDS(ins,2) 

10070 RETURN 

10080 IF EOF THEN CLOSEIN:ch$="":RETURN 
10090 LINE INPUT#9,in$ 

10100 IF NOT EOF THEN in$=in$+CHRS$S(13) 
10110 GOTO 10050 


Le caractère lu vous est transmis dans la variable ch$, le retour de 
chariot est maintenant lui aussi un caractère autorisé. Lorsque le 
dernier caractère a été Iu, ch$ est vide et LEN(Ch$) vaut donc zéro. 


Si vous voulez lire à l'écran des valeurs numériques, vous utilisez le 
plus souvent l'instruction: 


10 INPUT valeur 


Si vous entrez maintenant un caractère qui n'est pas un nombre, le 
système répond par: 


?Redo from Start 


AMSDOS ne peut bien sûr pas sortir un tel message d'erreur. Certains 
systèmes envoient dans ce cas une FILE TYPE ERROR, ce qui signifie: une 
chaîne de caractères a été transmise au lieu d'une valeur numérique. 
AMSDOS ne sort aucun message d'erreur mais effectue DE FACON INTERNE le 
calcul suivant: 


10 INPUT#9,a$:valeur-val(a$) 
On voit nettement ici pourquoi le caractère espace fait également office 
de symbole de séparation pour les nombres. En outre, chaque caractère non 


numérique fait office de symbole de séparation, à l'exception de “E” ou 
“e” qui est utilisé pour l'écriture exponentielle des nombres, 
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CHAPITRE 2: PROGRAMMATION AVANCEE DE LA DISQUETTE 


2.1 LES VECTEURS DU DOS 


Après que les chapitres précédents vous aient décrits de façon détaillée 
les possibilités d'AMSDOS et de CP/M pour une utilisation “normale”, vous 
découvrirez dans les chapitres suivants un certain nombre de notions sur 
1e mode de travail du DOS et sur l'utilisation du DOS en langage machine. 
Les chapitres suivants S'’adressent donc essentiellement aux lecteurs qui 
disposent de certaines connaissances de base sur la programmation en 
langage machine du Z80. Si ces connaissances vous manquent, un certain 
nombre de notions développées dans les pages suivantes vous sembleront 
incompréhensibles, Mais n'’abandonnez pas pour autant la lecture de cet 
ouvrage. Même si un certain nombre de choses vous semblent obscures au 
départ, vous pourrez néammoins utiliser beaucoup des informations qui 
vous Sont fournies dans les pages suivantes. 


On peut distinguer trois niveaux principaux de programmation en langage 
machine du lecteur de disquette du CPC, Le niveau supérieur de 
programmation est le plus simple à comprendre. A ce niveau, toutes les 
tâches essentielles sont accomplies par le DOS. Il s'agit au fond des 
équivalents en langage machine des instructions Basic que vous connaissez 
déjà depuis le chapitre précédent. 

Le Second niveau de programmation en langage machine de la disquette est 
un niveau qui serait impensable sans un listing de la ROM bien commenté. 
A ce niveau on dispose de routines dont certaines sont très simples mais 
dont d'autres aussi Sont très complexes, Ces routines vont de la simple 
mise en marche du moteur du lecteur de disquette à la lecture et à 
l'écriture de données sur la disquette, Nous décrirons les plus 
importantes routines du DOS car on peut grâce à elles réaliser un certain 
nombre de choses très intéressantes qui sont impossibles à réaliser à 
partir du Basic. 

La troisième possibilité de programmation du lecteur de disquette 
représente ce qu'on pourrait qualifier de programmation ‘à pied’, Seuls 
quelques spécialistes se risqueront à ce niveau car il faut alors 
programmer directement les fonctions du disc controller. Mais comme les 
fonctions essentielles se trauvent déjà sous une forme ou sous une autre 
dans le DOS, cette programmation peut se limiter à quelques cas 
particuliers. Nous évoquerons également ce niveau de programmation et 
nous décrirons largement les possibilités du disc controller. 


- 7/76 - 


Mais commençons par les choses les plus simples. Ni le système 
d'exploitation du CPC 464 ni celui du CPC 664 ne sont conçus pour 
commander un lecteur de disquette. Le seul moyen de sauvegarde externe 
des données qu'ils connaissent est le lecteur de cassette. Ce n'est 
qu'avec la ROM AMSDOS que la commande du lecteur de disquette devient 
possible. Si cette ROM n’est pas disponible lors de la mise sous tension 
de l'ordinateur, les instructions LOAD, SAVE, OPENIN, OPENOUT, CAT et les 
instructions de manipulation des fichiers s’appliqueront au lecteur de 
cassette. Si par contre Ila ROM AMSDOS est disponible lors de 
l'initialisation du CPC, la situation change totalement et presque toutes 
les instructions qui s’appliquaient auparavant au lecteur de cassette 
agissent maintenant sur le lecteur de disquette, La seule exception est 
l'instruction SPEED WRITE puisque celle-ci n’a aucun effet sur le lecteur 
de disquette, 


Le principe des vecteurs qui a été utilisé par les développeurs du CPC 
revêt un aspect essentiel pour la souplesse d'utilisation. Au lieu 
d'appeler directement l'action, c'est-à-dire la routine du système 
d'exploitation voulue, cette routine est appelée à travers une adresse de 
la RAM à laquelle figure un saut à la routine système correspondante, Le 
fait que la routine soit appelée à travers un vecteur situé en RAM peut 
sembler inutile au premier abord. En réalité cependant, ce principe 
garantit la compatibilité entre différentes versions de système 
d'exploitation. Ce n’est qu'à travers ce détour qu'il devient possible 
que des programmes machine puissent tourner aussi bien sur le 464 que sur 
le 664 bien que les deux ordinateurs possèdent des systèmes 
d'exploitation très différents à certains égards. Tant que les vecteurs 
figurent aux mêmes emplacements de la RAM et que les routines 
correspondantes remplissent des fonctions identiques, on peut 
entreprendre pratiquement n'importe quelles modifications du système 
d'exploitation. La compatibilité reste garantie. Un autre point très 
important est qu’on a en tant que programmeur toutes les cartes en main. 
Il n'est certes pas possible de modifier les routines de la ROM mais 
comme les vecteurs figurent en RAM ils peuvent être sans problème 
‘détournés’ sur les routines propres de l'utilisateur. Il est ainsi 
possible de modifier si nécessaire toutes les fonctions appelées à 
travers les vecteurs, 

C'est exactement ce qui se produit lorsque le lecteur de disquette est 
connecté, Dans le CPC, 22 vecteurs sont prévus pour commander le lecteur 
de cassette, 13 de ces vecteurs sont modifiés pour le travail avec la 
disquette, c'est-à-dire que les adresses des routines à appeler sont 
modifiées, A travers ces 13 vecteurs sont appelées à partir du Basic 
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toutes les fonctions du lecteur de disquette. Mais ces vecteurs peuvent 
etre également parfaitement utilisés en langage machine, Voici maintenant 
une présentation des vecteurs modifiés. Les noms employés correspondent à 
ceux du CPC 464 Firmware Manual, 


&BC/7 CAS IN OPEN ouvre un fichier en lecture 

&BC/A CAS IN CLOSE ferme correctement un fichier ouvert en lecture 

&BC/D CAS IN ABANDON ferme immédiatement un fichier ouvert en lecture 

&BC80 CAS IN CHAR retire un caractère d'un fichier d'entrée 

&BC83 CAS IN DIRECT lit et place entièrement dans la mémoire un 
fichier d'entrée 

&BC86 CAS RETURN le dernier caractère est réécrit 

&BC89 CAS TEST EOF teste si la fin du fichier est atteinte 

&BC8C CAS OUT OPEN ouvre un fichier en écriture 

&BC8F CAS OUT CLOSE ferme correctement un fichier ouvert en 
écriture 

&BC92 CAS OUT ABANDON ferme immédiatement un fichier ouvert en 
écriture 

&BC95 CAS OUT CHAR écrit un caractère dans un fichier de sortie 

&BC98 CAS OUT DIRECT écrit entièrement une zone de la mémoire dans un 
fichier 

&BC9B CAS CATALOG fonction identique à celle de l'instruction 
Basic CAT 


Une fois que vous aurez lu cette table, nous vous conseillons d'oublier 
bien vite les noms utilisés ici. 11 nous semble en effet vraiment 
illogique de désigner par CAS des routines utilisées avec le lecteur de 
disquette, Nous remplacerons toujours par la suite CAS par DISK. Le nom 
correspond ainsi à la fonction. 


2.1.1 DISK IN OPEN &BC/7 


Avant que des données puissent être lues dans un fichier, ce fichier doit 
etre ouvert. L'ouverture d’un fichier est prise en charge par la routine 
DISK IN OPEN, 11 est à cet égard indifférent que le fichier à lire soit 
un fichier ASCII ou un programme. Cette routine doit être de toute façon 
appelée une fois, 

Pour lire le fichier, certains paramètres sont bien sûr attendus, Le 
paramètre le plus important est le nom du fichier. Avec toutes les 
routines DISK, des paramètres sont transmis à travers les registres, Mais 
comme un nom de fichier se compose de 8 caractères plus 3, le nom ne peut 
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etre entièrement transmis à travers les registres. Le registre double 
reçoit donc l'adresse à laquelle le nom de fichier figure en mémoire. Le 
nom de fichier peut se trouver n'importe où dans la RAM, y compris dans 
là partie de celle-ci qui se chevauche avec la ROM, par exemple dans les 
16 premiers K de la mémoire du CPC. 

Un autre paramètre, qui doit lui être transmis à la routine à travers le 
registre B, est constitué par la longueur du nom de fichier, Cela est une 
propriété très agréable de DISK IN OPEN puisque vous n'êtes pas ainsi 
obligé d'amener vous même le nom de fichier à une longueur prédéterminée., 
Vous pouvez ainsi entrer des noms de fichier ayant par exemple 4 
caractères pour le nom et Z pour l'extension (le type de fichier), La 
routine complètera elle-même le nom ainsi fourni de façon à ce qu’il 
atteigne la longueur requise. Mais n'oubliez jamais d'indiquer également 
la longueur de l'extension, 

Un troisième paramètre est attendu par la routine DISK IN OPEN dans le 
registre double DE. Vous devez fournir ici l'adresse d'un buffer long de 
2048 octets, Les données à lire seront écrites dans ce buffer, 11 n’y a 
pas ici non plus de limites concernant la situation de ce buffer dans la 
mémoire, 

Après que les trois paramètres aient été transmis aux registres que nous 
avons indiqués, la routine peut être appelée, Voyons un exemple d'un tel 
appel, Nous allons ouvrir le fichier ‘’TEST.DAT’ en lecture. Programmée en 
assembleur, la séquence d'instructions se présente ainsi: 


100 LD HL, FILNAM ;adresse du nom 
110 LD B, BUFF-FILNAM ; longueur du nom 
120 LD DE, BUFF :adresse du buffer 
1 30 CALL  DISK-IN-OPEN 

140 RET 

150 FILNAM: DEFM  ‘’test.dat' ;nom du fichier 
160 BUFF: DEFS 80800 ;place pour 2K 


‘Mais que fait exactement cette routine et quels résultats produit-elle? 
Elle contrôle tout d'abord si le nom de fichier correspond à certaines 
règles formelles, C’est ainsi que certains caractères sont interdits dans 
le nom de fichier, Si un de ces caractères est rencontré, l'instruction 
est interrompue. Le nombre de caractères dans le nom de fichier ne doit 
pas non plus être supérieur à 15, Ce nombre comprend le numéro user, le 
numéro de drive avec le double point, 8 caractères pour le nom de 
fichier, le point de séparation et trois caractères d'extension. Un tel 
nom de fichier pourrait étre par exemple: “OA:FILENAME .DAT”. 

En même temps que le nom de fichier est contrôlé, toutes les lettres 
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minuscules Sont changées en majuscules. Les noms de fichiers plus courts 
sont complétés jusqu'à la longueur requise avec des caractères espace. 
Après ce contrôle du nom de fichier, on examine s’I1l existe bien sur la 
disquette un fichier portant ce nom. S'il n’y a pas sur la disquette de 
fichier portant ce nom, par exemple parce que le nom a été mal où 
incomplètement entré, AMSDOS annonce ‘Filename not found’, C'est 
également ce message d'erreur que vous obtenez lorsque vous voulez 
charger un programme qui ne figure pas sur la disquette qui a été placée 
dans le lecteur, 

Indépendamment du fait que le fichier figure ou ne figure pas sur la 
disquette, vous obtenez en tout cas dans les registres, après avoir 
appelé la routine, un certain nombre de paramètres importants en retour. 
Tout d'abord l'état des flags Carry et Zéro indique si le DISK IN OPEN a 
réussi, À cet effet, le flag Carry est mis et le flag Zéro est annulé si 
l'OPEN à réussi, Si par contre le Carry et le Zéro sont tous deux 
annulés, c’est que vous avez tenté d'ouvrir en lecture un deuxième 
fichier. Vous aviez donc déjà ouvert un fichler. La troisième possibilité 
est que le flag Zéro Soit mis mais que le Carry soit annulé. Dans ce cas, 
le fichier indiqué n'a pas été trouvé. 

St Il'OPEN a réussi, la valeur de l'accumulateur permet de déterminer le 
type de fichier, S'il s'agit par exemple d’un programme Basic, 
l'accumulateur contiendra après la routine OPEN la valeur 0, Une valeur 
de &16 signifie que le fichier ouvert est un fichier ASCII. Vous 
trouverez les autres valeurs possibles, sous forme de table, sous DISK 
OUT OPEN. 

Le double registre HL contient après ouverture du fichier l'adresse du 
header de fichier. La notion de header de fichier ne vous est 
certainement pas encore familière, c'est pourquoi nous allons l'expliquer 
brièvement ici. Mais c'est sous DISK OUT OPEN que vous trouverez une 
description détaillée de la structure du header de fichier, Le header de 
fichier contient une somme d'informations sur le fichier correspondant, 
C'est ainsi qu'il contient le nom du flchier, le type de fichier, la 
longueur du fichier ainsi que l'adresse à partir de laquelle le fichier a. 
été écrit. Presque tous les fichiers qui Sont Sauvegardés sur la 
disquette, donc aussi les programmes Basic et les programmes machine, 
sont sauvegardés avec ces informations, La seule exception est constituée 
par les purs fichiers ASCII pour lesquels le header n'est pas sauvegardé 
avec le fichier mais produit par AMSDOS, Vous obtenez une autre 
information dans le registre double DE, Ici vous est communiquée 
l'adresse de départ du fichier. Cette Information n'a bien sûr de sens 
que S’il s’aglt d'un fichler de programme. Si le fichier ouvert est un 
programme Basic, la valeur contenue par DE est normalement de 80170, Pour 
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les programmes machine, DE contient l'adresse à partir de laquelle le 
programme a été écrit, 

Enfin le registre double BC vous fournit comme dernière information la 
longueur du fichier. 11 faut noter ici à nouveau que cette information 
n'est pas fournie pour les purs fichiers ASCII, Les fichiers ASCII 
peuvent être notablement plus longs que les 64K qu’un registre double 
permet seuls de représenter. Cette information n’a d’ailleurs de sens que 
pour le chargement des programmes, 


2.1.2 DISK IN CLOSE &BC/A 


Après que cette routine ait été appelé, un fichier ouvert en lecture sera 
fermé, 11 n'est plus possible de lire dans ce fichier, DISK IN CLOSE est 
essentiellement requis lorsqu'il s'agit de lire des données dans un 
deuxième fichier. On ferme alors d'abord le fichier ouvert avec DISK IN 
CLOSE avant d'ouvrir en lecture le nouveau fichier avec DISK IN OPEN. 

Si vous voulez absolument le Savoir, vous pouvez déterminer, après avoir 
appelé cette routine et d'après le flag Carry, si un fichier était bien 
ouvert en lecture, Si le Carry est mis, c'est qu'un fichier était ouvert. 
Cette routine ne nécessite pas d’autres paramètres puisque pour le moment 
il ne peut jamais y avoir qu’un seul fichier d'entrée ouvert, 


2,1,3 DISK IN ABANDON &BC7/D 


Cette routine remplit presque la même tâche que DISK IN CLOSE, Après DISK 
IN ABANDON aussi, un fichier d'entrée ouvert sera fermé, Cette routine 
est essentiellement conçue pour fermer le fichier en cas d'erreur. DISK 
IN ABANDON est également appelée par l'interpréteur Basic avant tout 
LOAD, SAVE ou CAT. Cela signifie que les fichiers ouverts sont toujours 
fermés après exécution d'une de ces instructions. 


2.1.4 DISK IN CHAR &BC80 


AMSDOS connaît fondamentalement deux méthodes différentes pour lire dans 
un fichier. La première méthode consiste à appeler la routine DISK [IN 
CHAR, qui retire un caractère (CHARacter) du fichier, Cette routine ne 
nécessite pas non plus de paramètres puisqu’un seul fichier d'entrée peut 
etre ouvert. 

Le caractère Iu dans le fichier est transmis à travers l'accumulateur., En 
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outre, les flags Carry et Zéro signalent si la routine a été exécutée 
correctement. Si un caractère a bien été retiré du fichier, le Carry est 
mis alors que le flag Zéro est annulé. Si vous essayez cependant de lire 
un caractère d’un fichier non ouvert, vous obtiendrez comme marque 
d'erreur les états Carry annulé, Zéro annulé. En outre le message 
d'erreur &0E figurera dans l'’accumulateur, Cette marque indique que le 
fichier d'entrée n'était pas ouvert comme on s’y attendait, 

D'autre part, si vous êtes arrivé à la fin du fichier, les flags seront 
tous deux annulés comme précédemment mais c'est la valeur 8&1A, la marque 
de END OF FILE, que vous obtiendrez dans l'accumulateur. 

Les messages d'erreur possibles vous sont présentés à la fin du présent 
chapitre. 

La lecture de données avec DISK IN CHAR ne peut s'effectuer que de façon 
séquentielle, Si vous avez par exemple Iu le 100ème caractère d'un 
fichier mais que vous vouliez accéder à nouveau au dixième caractère, il 
vous faut fermer le fichier puis le réouvrir. 


2.1.5 DISK IN DIRECT &BC83 


Comme nous l'avons déjà indiqué, AMSDOS offre deux possibilités de 
lecture des fichiers, Vous connaissez déjà la première méthode avec la 
routine DISK IN CHAR, DISK IN DIRECT représente la deuxième forme 
possible d'accès aux données d’un fichier. Contrairement à DISK IN CHAR, 
cette routine permet de lire et de placer dans la mémoire un fichier 
entier. L'application principale de cette routine est bien sûr le 
chargement de zones de la mémoire sauvegardées auparavant. C'est à 
travers cette routine que sont chargés les programmes Basic et les 
programmes machine, 

Contrairement à DISK IN CHAR, DISK IN DIRECT exige un paramètre. 11 
s'agit de l'adresse de chargement du bloc de données, Cette adresse doit 
etre transmise à travers le registre HL. 


100 LD  HL,BUFFER :adresse de départ pour les données 
110 CALL DISK IN DIRECT 

120 RET 

130 BUFFER  EQU $ c'est ici que sont placées les 


données lues 


Après appel de DISK IN DIRECT les flags indiquent de la façon qui nous 
est déjà familière si la routine a été où non couronnée de succès, Carry 
mis/Zéro annulé signifie ici aussi que les données ont été lues 


correctement, Les messages d'erreur possibles sont les mêmes que pour 
DISK IN CHAR. On obtient en outre dans le registre double HL, après appel 
de cette routine, ce qu’on appelle l'adresse ENTRY, fournie par le header 
de fichier, Veuillez voir sous DISK OUT OPEN quelle est la signification 
de cette adresse. 


Il faut encore relever un certain nombre de particularités concernant les 
deux possibilités d'accès aux données d'un fichier. D'une part 
l'utilisation de ces deux routines est entièrement libre. Contrairement à 
ce qui est le cas en Basic, il est donc possible de lire aussi un 
programme avec DISK IN CHAR, Mais si un caractère d'un fichier d'entrée a 
déja été Iu avec DISK IN CHAR, le reste ne peut plus être lu et placé 
dans la mémoire avec la routine DIRECT. Inversement il n’est pas possible 
de continuer avec la routine CHAR la lecture d'un fichier commencée avec 
la routine DIRECT, sans compter qu'après DIRECT on a de toute façon 
atteint la fin du fichier. 11 est d'autre part déconseillé de lire une 
seconde fois un fichier qui a été Iu avec DISK IN DIRECT. Vous risqueriez 
en effet de détruire les données en mémoire. 
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2.1.6 DISK RETURN &BC86 


Nous avons dit pour DISK IN CHAR qu'un fichier ne peut être traité que de 
façon séquentielle et cette affirmation est juste en principe, Avec DISK 
IN CHAR il est cependant possible de lire des caractères plus d'une fois. 
Avec DISK RETURN le caractère Iu en dernier est réécrit dans le buffer et 
est à nouveau disponible pour la lecture, Si les 20 premiers caractères 
du fichier ont été Ius, après avoir appelé 20 fois DISK RETURN, le 
prochain DISK IN CHAR Ilira à nouveau le premier caractère. Cette 
possibilité a toutefois ses limites. Le retour en arrière n'a été en 
effet prévu à l'origine que pour un seul caractère, 

Un exemple illustrera où se situent les limites de cette routine. Dans 
cet exemple nous imaginerons un fichier de 4000 caractères, Après avoir 
Iu 2048 caractères avec DISK IN CHAR, le buffer que nous avons défini 
avec DISK IN OPEN est vide, nous avons Iu tous les caractères qu’il 
contenait, Lors de l'accès au prochain caractère, le 2049ème, le buffer 
sera rempli de nouvelles données à partir de la disquette. Si nous avons 
maintenant lu ce 2049ème caractère et que nous appelions la routine DISK 
IN RETURN plus d'une fois, il faudrait normalement que les 2048 premiers 
octets soient à nouveau chargé dans le buffer, Ce n'est cependant pas ce 
qui se produit. Au lieu de cela, le pointeur sur le prochain caractère à 
lire quitte la zone du buffer, de sorte que les caractères Ius par la 
suite n’ont plus rien à voir avec le contenu du fichier. 


DISK RETURN ne doit donc comme vous le voyez être utilisé que de facon 
très limitée. L'application principale de cette routine est le contrôle 
sélectif d'un caractère isolé. C'est ainsi que DISK RETURN est également 
utilisé pour tester le critère EOF &1A, 


2.1.7 DISK TEST EOF &BC89 


Cette routine vous permet de déterminer si vous avez atteint la fin du 
fichier. Le prochain caractère du fichier est Iu à cet effet avec DISK IN 
CHAR et on teste s’il vaut &1A, soit 26 en décimal. Si la valeur du 
caractère lu n'est pas 26, le caractère est ensuite réécrit dans le 
buffer avec DISK RETURN et la routine renvoie un flag Carry mis et un 
flag Zéro annulé. Si par contre la valeur &i1A a été trouvée, les flags 
Carry et Zéro sont annulés, 

Cette routine ne peut être utilisée que lors d’une lecture caractère par 
caractère d’un fichier car cette routine utilise elle-même la routine 
DISK IN CHAR, Or l'utilisation de cette dernière routine est interdite 
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avec DISK IN DIRECT et entraîne des messages d'erreur. 


2.1.8 DISK OUT OPEN &BC8C 


Toutes les routines décrites précédemment présupposent que des données se 
trouvent déjà sur la disquette, Les descriptions de routines suivantes 
vous montrent maintenant comment vous pouvez Sauvegarder des données et 
programmes sur Ia disquette en langage machine, De même que pour la 
lecture de données, le fichier voulu doit également être ouvert avant 
toute opération d'écriture, L'ouverture se fait en appelant la routine 
DISK OUT OPEN, De même que pour la lecture, différents paramètres doivent 
etre transmis à la routine, 

Il y a tout d'abord le nom de fichier sous lequel les données pourront 
ensuite être retrouvées, L'adresse du nom voulu est transmise à travers 
le registre double HL. La longueur du nom et l'adresse d'un buffer de 
2048 octets doivent être transmis à travers le registre B et à travers le 
registre double DE, comme pour DISK IN OPEN, 


100 LD HL, FILNAM adresse du nom 

110 LD B, BUFF-FILNAM ; longueur du nom 

120 LD DE, BUFF :adresse du buffer 

130 CALL DISK-OUT-OPEN 

140 RET 

150 FILNAM: DEFM ‘test.dat' >nom du fichier 

160 BUFF: DEFS  &0800 ;place pour 2048 octets 


La validité du nom de fichier est d’abord contrôlée et le nom est 
complété si nécessaire pour comporter le nombre correct de caractères, 
L'extension est ensuite remplacée par trois caractères dollar et ce nom 
est alors cherché sur la disquette, Sous ce nom est en effet d’abord créé 
un fichier provisoire dans lequel l'extension originale ne sera entrée 
que plus tard, Un header de fichier est d'autre part créé dont l'adresse 
est mise après exécution de la routine à la disposition de l'utilisateur 
dans le registre double HL, Cela suppose toutefois qu'aucune erreur ne se 
produise dans le DISK OUT OPEN, Vous pouvez tester ce fait comme toujours 
en examinant l'état du flag Carry, Si après exécution de cette routine le 
flag Carry est mis, c'est que tout est en ordre et que le fichier est 
ouvert en écriture, Si le Carry est par contre annulé, c'est qu’une 
erreur quelconque s’est produite. Les erreurs possibles sont par exemple 
des entrées incorrectes pour le nom de fichier. Les erreurs de lecture 
lors de l'examen du catalogue sont également annoncées comme erreurs, 
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Dans ce cas le contenu de HL est indéterminé. 

Mais considérons le cas où le fichier de sortie a été ouvert 
correctement, Nous recevons dans ce cas l'adresse du header de fichier 
dans le registre double HL. Nous allons maintenant examiner ce header de 
fichier un peu plus précisément. 

Le fichier n'est en fait rien d'autre qu'une zone de mémoire de 64 
octets. Ces 64 octets contiennent les données les plus importantes sur le 
fichier, La signification des différents octets du header sont identiques 
pour la lecture et l'écriture des données, La structure du header est par 
ailleurs identique à la structure du header pour le travail sur cassette, 
Les 16 premiers octets contiennent le nom de fichier. Un nom de fichier 
peut en effet comporter pour le travail sur cassette jusqu'à 16 
caractères mais par contre pour le travail sur disquette, le nom ne se 
compose au maximum que de 8 caractères, Si on ajoute encore l'extension 
avec ses trois caractères maximum, nous n'avons toujours que 11 
caractères, Comme premier caractère est en outre entré le numéro user. 
Cela donne un nombre de 12 octets et les 4 derniers caractères du nom de 
fichier dans le header fichier valent toujours 0. 

Les octets 16 et 17 sont sans signification pour le lecteur de disquette. 
I1S contiennent pour le travail Sur cassette le numéro de bloc actuel et 
une marque indiquant si le bloc actuel est le dernier bloc du fichier. Du 
fait d’une structure totalement différente, ces indications disparaissent 
sous AMSDOS, 

L'octet suivant, numéro 18, est cependant également très important sous 
AMSDOS. Il contient le type de fichier, Le type de fichier est codé sous 
forme binaire, c'est-à-dire que les différents bits de cet octet ont une 
Signification déterminée. 

Le bit O indique si le fichier est protégé. Pour les programmes qui ont 
été sauvegardés avec SAVE”nom de fichier”,P, le bit O du type de fichier 
est mis. 

Les bits 1, 2 et 3 déterminent le type de fichier prop'ement dit. Si les 
trois bits sont annulés, il s’agit d’un programme Basic, Si le bit 1 est 
mis, le fichier est un fichier binaire, donc une zone de mémoire du CPC, 
Le type de fichier ASCII est produit par la mise des bits 1 et 2, 

Les bits 4 à 7 ne sont normalement pas mis et ils représentent, selon le 
Firmware Manual du CPC, le numéro de version, sans que cette notion 
apparaisse très claire, Seuls les fichiers ASCII ont le numéro de version 
1, le bit 4 du type de fichier étant mis. 

Après un DISK OUT OPEN réussi, le type de fichier est mis sur fichier 
ASCII, C'est à vous d'entrer ici la valeur correcte dont vous avez 
besoin. 

Les octets 19 et 20 sont encore un reste du travail sur cassette, Ils 
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contiennent le nombre d'octets du bloc de données actuel mais {1S sont 
Sans Signification pour le travail sur disquette, 

PIUS importants sont les deux octets suivants numéros 21 et 22, 11Ss 
contiennent l'adresse à partir de laquelle les données ont été écrites, 
Cette indication n'est bien sûr pas encore fournie pour DISK OUT OPEN. Ce 
n'est que lors de l'écriture dans un fichier avec DISK OUT DIRECT (voir 
ci-dessous) que ce champ du header de fichier est rempli. Pour les 
fichiers ASCII vous ne trouvez ici que la valeur 0 car ce paramètre n’a 
aucun sens dans ce cas. 

L'octet 23 du header de fichier vaudra toujours &FF. Pour le travail sur 
cassette, cette valeur indique que le bloc de données actuellement lu est 
Ie premier du fichier. Cette indication n'a pas non plus de sens pour le 
travail sur disquette, 

Les octets 24 et 25 contiennent la fongueur du fichier, Cette valeur est 
transmise dans le registre double DE après DISK IN OPEN. Pour les 
fichiers ASCII, cette valeur est toujours O0 car les fichiers ASCII ne 
voient leur taille limitée que par la capacité de la disquette, Celle-ci 
excède toutefois la valeur maximale pouvant être représentée avec deux 
octets. 

Les derniers octets utilisés, 26 et 27 contiennent sur les programmes 
machine l'adresse de départ du programme, Lorsque vous sauvegardez une 
zone de la mémoire avec l'instruction SAVE"“memoire.bin“,b, 1000, 2000, 1200, 
la valeur 1200 sera alors placée dans ces deux cases mémoire en format 
hexadécimal,. Si vous travaillez cependant avec les mêmes routines en 
langage machine, vous devez entrer cette valeur vous même. 

Tous les autres octets du header de fichier ne sont utilisés d'aucune 
manière par AMSDOS. Si vous en avez l'utilité, vous pouvez les employer, 
Après DISK OUT OPEN, ces octets sont mis sur O0 et sont ensuite à votre 
libre disposition, 


2.1.9 DISK OUT CLOSE &BC8F 


Un fichier de sortie doit également être fermé. Mais la nécessité de 
fermer un fichier est beaucoup plus grande lors de l'écriture que lors de 
la Iecture. Cela vient du fait que chaque caractère n'est pas écrit 
directement sur la disquette mais d'abord dans le buffer de 2048 octets 
qui a été créé avec DISK OUT OPEN. Si ce buffer déborde, c’est-à-dire si 
le nombre de caractères à stocker est plus grand que 2048, ce buffer est 
écrit sur la disquette. Lors de la fermeture d’un fichier, il peut donc y 
avoir dans le buffer jusqu’à 2047 caractères, Avec l'appel de la routine 
CLOSE, ce reste figurant dans le buffer est également écrit sur la 
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disquette, Ce n'est qu'à partir de ce moment que le fichier sur 1la 
disquette sera complet. Vous risquez donc de perdre, dans l'hypothèse la 
moins favorable, 2047 octets si vous changez la disquette alors qu'un 
fichier de sortie est encore ouvert. 

D'autre part, le nom de fichier provisoire (avec l'extension ,$$$) est 
remplacé par le nom de fichier original, Un fichier existant 
éventuellement déjà sous ce nom verra alors Son nom changer, il recevra 
l'extension .BAK. Si vous voyez dans le catalogue un fichier ayant cette 
extension, il s’agit en général d'un fichier qui n’a pas été refermé 
correctement, 

La routine CLOSE ne nécessite pas la transmission de paramètres 
particuliers car, comme pour la lecture, un seul fichier peut être ouvert 
à la fois, Après exécution de cette routine, vous pouvez déterminer, au 
vu de l'état des flags Carry et Zéro, si le CLOSE a été exécuté 
correctement, Dans ce cas, le Carry est à nouveau mis alors que le flag 
Zéro est annulé, 


2,1.10 DISK OUT ABANDON &BC92 


Si une erreur grave se produit lors de l'écriture dans un fichier, le 
fichier peut être fermé grâce à cette routine. Un exemple d'une telle 
erreur grave serait un message indiquant que la disquette est pleine. 
Dans ce cäs vous devriez appeler DISK OUT ABANDON car les blocs occupés 
jusqu'ici seront alors libérés sur la disquette. De même, le nom du 
fichier n'apparaîtra pas dans le catalogue. Dans un tel cas, toutes les 
données écrites jusqu’à présent devront être écrites à nouveau sur une 
disquette comportant plus de place mémoire libre. 


2,1,11 DISK OUT CHAR &BC95 


Comme pour la lecture de données, AMSDOS connaît deux moyens différents 
pour écrire des données sur la disquette. La première méthode passe par 
DISK OUT CHAR. Cette routine écrit le caractère figurant dans 
l'accumulateur dans le buffer OPENOUT, Si un débordement se produit, Îles 
caractères écrits jusqu'ici dans le buffer sont sauvés sur la disquette 
et le buffer est ainsi à nouveau libéré. 

Cette routine permet en principe d'écrire n'importe quel caractère dans 
un fichier, Si le fichier est cependant plus tard lu avec DISK IN CHAR, 
vous devrez alors être très prudent dans l'utilisation du caractère &1A 
(26 en décimal). Ce caractère risquerait en effet sinon d'être interprété 
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lors d'une lecture ultérieure comme la marque EOF, même si le fichier ne 
se termine pas du tout à cet endroit. 

Hormis le caractère à écrire qui doit être placé dans l'’accumulateur, 
aucun autre paramètre ne doit être transmis à cette routine, Comme pour 
les autres routines, après exécution de DISK OUT CHAR, le Carry est mis 
Si le caractère a été écrit correctement. Si par contre les flags Carry 
et Zéro sont annulés, c'est que vous avez négligé d'ouvrir correctement 
le fichier de sortie nécessaire. 


2.1,12 DISK OUT DIRECT &BC98 


Cette routine représente la seconde possibilité pour AMSDOS de 
Sauvegarder des données dans un fichier sur disquette. Au contraire de 
l'écriture de caractères isolés, cette routine est utilisée pour 
sauvegarder des zones entières de la mémoire du CPC, Il faut pour cela 
transmettre différents paramètres à DISK OUT DIRECT. 

Le registre double HL doit d’abord recevoir l'adresse de départ de la 
zone de mémoire à écrire, A partir de cette adresse, les données seront 
écrites dans le fichier. 

La prochaine valeur importante est la taille de fichier voulue, Vous 
devez à cet effet charger dans le registre double DE le nombre d'octets à 
Sauvegarder. Il est donc évident que la taille maximale d'un tel fichier 
est 64K ou 65536 octets. Des fichiers de taille plus importante ne 
seraient d'ailleurs pas utiles, Cette grandeur de fichier suffit pour 
Sauvegarder toute la mémoire RAM du CPC sur disquette, ce qui d’ailleurs 
n'est pas très intéressant puisqu'un tel fichier ne peut plus être 
rechargé entièrement, 

Si vous le souhaitez, vous pouvez transmettre dans le registre double BC 
l'adresse ENTRY (par exemple l'adresse de départ pour des programmes 
machine). Le contenu de ce registre double est écrit dans les octets 26 
et 27 du header de fichier. 

Vous pouvez transmettre un dernier paramètre à travers l’accumulateur. 1] 
s'agit du type de fichier voulu, Cette indication sera également écrite 
dans le header de fichier, dans l’octet 18 du header. 


Comme pour la lecture de fichiers, il est également important en écriture 
de ne pas changer de méthode d'écriture. On ne peut donc pas sauter dans 
un fichier d'une méthode à l'autre. Une fois que vous avez écrit un 
caractère avec DISK OUT CHAR, toute tentative pour utiliser ensuite DISK 
OUT DIRECT entraînera un message d'erreur, 

11 n’est malheureusement pas non plus possible d'utiliser dans un fichier 
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DISK OUT DIRECT plus d’une fois. Même si, après un autre DISK OUT DIRECT, 
AMSDOS envoie le message OK, il y aura, au plus tard lors de DISK OUT 
CLOSE, le message ‘File not open as expected’. Le fichier ne sera pas non 
plus écrit correctement. Après que cette routine ait donc été exécuté une 
fois, le fichier de sortie doit être refermé. Une autre zone de mémoire 
du CPC ne pourra être sauvegardée sur la disquette que dans un autre 
fichier. 


2.1.13 DISK CATALOG &BC9B 


Ne serait-ce que pour cette propriété intéressante, la disquette doit 
etre préférée à la cassette. Vous obtenez en un temps très bref un aperçu 
des fichiers figurant sur le lecteur de disquette. En outre, le nombre de 
blocs libres sur la disquette est affiché. 

Avant d'appeler DISK CATALOG vous devez indiquer dans le registre double 
DE l'adresse de départ d'une mémoire buffer de 2048 octets. Ce buffer 
n'était pas au fond indispensable et il a été mis en place certainement 
en premier lieu pour des raisons de compatibilité avec le travail sur 
cassette, Mais les programmeurs de ]l'’AMSDOS ont eu une idée très 
intéressante pour tirer profit de ce buffer. Lorsque vous appelez DISK 
CATALOG, les noms des fichiers sont en effet Ius sur la disquette et 
placés dans ce buffer, avec l'information concernant le nombre de bIlocs 
occupés. Les noms de fichier ne sont cependant pas écrits simplement dans 
l'ordre dans lequel ilS apparaissent sur la disquette mais ils sont triés 
d'après l'ordre alphabétique, C'est pourquoi vous obtenez toujours un 
catalogue aussi joliment trié lorsque vous entrez l'instruction CAT, Par 
contre, avec l'instruction DIR, les fichiers sont affichés dans l'ordre 
dans lequel ils figurent effectivement sur la disquette, c’est-à-dire non 
triés. 


2,.1.14 LE PATCHING (OU DETOURNEMENT) DES VECTEURS 


Au début de ce chapitre nous avons expliqué en détail les avantages des 
vecteurs situés en RAM. Mais si vous voulez tirer parti d’un avantage 
essentiel, de la facilité de modification des routines correspondantes, 
il vaut mieux ne pas vous mettre au travail de façon trop précipitée. La 
médaille a en effet un revers dangereux, 


Un regard sur le listing de la ROM au chapitre 3 montre où se situe la 
difficulté. Après initialisation d'AMSDOS, les 13 vecteurs présentent le 
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même contenu, Dans tous les cas, les trois octets de chaque vecteur sont: 


RST &18 
DEFH  8A88B 


Une simple boucle PEEK confirme cette affirmation. La routine RST 818, 
également appelée RST 3 permet d'appeler comme sous-programme, donc de 
sauter presque comme avec CALL à n'importe quelle routine dans n'importe 
quelle ROM ou dans la RAM. Pour cela cependant, l'adresse sur deux octets 
figurant après l'instruction Restart ne suffit pas, En effet on ne peut 
placer dans deux octets qu'une seule adresse, sans qu'il soit possible 
d'ajouter une valeur de Sélection de la ROM. La solution de ce problème 
est la suivante: l'adresse derrière RST indique l'adresse de la mémoire à 
laquelle figure la véritable adresse sur trois octets, 

Dans notre cas, il nous faut regarder en 8A88B pour obtenir l'adresse et 
l'octet de sélection de la ROM pour la routine effective du DOS. À 
l'adresse 8A88B figurent les valeurs 830, &CD et &07, Ceci donne en 
lecture ‘en clair’ l'adresse &CD30 dans 1a ROM d'extension 7. 

Si l'on regarde maintenant à l'adresse indiquée de 1a ROM AMSDOS on 
trouve une routine assez particulière qui détermine l'adresse du vecteur 
appelé à travers une manipulation de la pile (en effet, sur la pile se 
trouve l'adresse du vecteur + 3), Une valeur de 8&10D2 est ajoutée à cette 
adresse et placée sur le haut de la pile, Un RETurn conduit alors à la 
routine demandée, Que s'est-il donc passé? 


On comprend pourquoi on a choisi cette voie détournée pour appeler les 
différentes routines si l'on se représente que le RST 3 a le même effet 
qu'un CALL, Lors d'un CALL, une adresse de retour est placée sur la pile. 
Mais cette adresse pointe DERRIERE le vecteur appelé, sur la prochaine 
entrée du bloc de sauts. Notre programme doit cependant étre poursuivi à 
partir de l'emplacement qui suit l'appel du vecteur, C'est pourquoi 
l'adresse de retour de RST doit absolument disparaître de la pile, 

C'est exactement cette tâche qui incombe à la routine en &CD30. L'adresse 
de retour à écarter n'est cependant pas simplement jetée aux oubliettes, 
Elle est au contraire additionnée à la Valeur &10D2, ce qui donne 
l'adresse effective de la routine à appeler. Si un RST vient sur 
l'adresse &CD30 à partir d'une autre adresse qu'une entrée du bloc de 
sauts, l'addition donne une valeur totalement insensée et un “plantage” 
ou un Reset peuvent en être [es conséquences probables, 


Mais assez d'explications. Voyons comment on peut malgré tout détourner 
ces routines,. 
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L'exemple choisi est très simple. La seule fonction de ce détournement 
est de montrer comment un tel détournement fonctionne, Pour cet exemple, 
nous détournerons le vecteur CAT. 


100 INIT: LD HL, &BC9C ;adresse du vecteur CAT 

110 LD TEMP,HL ; Sauvegarder 

120 LD HL, PATCH ;nouvelle adresse du RST 

130 LD &BC9C, HL ;:patcher 

140 RET ;c'est bon 

150 PATCH:  EQU $ zici pourrait figurer votre routine 
160 LD HL, TEMP ;:adresse originale 

170 LD &BC9C, HL ;entrer à nouveau 

180 CALL &BC9B ;vecteur CAT avec adresse correcte 
190 PATCH1: EQU $ ;ici aussi pourrait être votre routine 
200 CALL INIT restaurer pour le prochain appel 
210 RET stout est fini 


Comme vous le voyez, nous ne faisons vraiment rien d'autre que 
détourner le vecteur, Toutefois, de cette façon, vous pouvez 
intervenir aussi bien avant qu'après la routine, 


Un exemple pratique de la méthode utilisée est la réparation de MERGE 
et de CHAIN MERGE, Vous pourriez désassembler ce petit programme pour 
voir comment l'intervention dans Ja routine DISK IN CHAR y est 
programmée, 
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2,2 LES EXTENSIONS D’ INSTRUCTIONS DE L'AMSDOS 


Les routines décrites dans le chapitre précédent sont loin d'épuiser 
toutes les possibilités qui s'offrent au programmeur. Les instructions 
étendues, marquées en Basic par un tralt vertical (SHIFT-@), peuvent être 
également utilisées sans difficulté en langage machine. Voyons maintenant 
en détail comment procéder. 


Vous connaissez déjà les instructions possibles: 


CPM À 
DISC B 
DISC.IN DRIVE 
DISC.OUT USER 
TAPE DIR 
TAPE,IN ERA 
TAPE OUT REN 


Au contraire des routines DISK décrites précédemment, il n’y a pas de 
vecteurs pour les instructions étendues, de sorte qu’il n'est pas 
possible de les appeler directement. Pour les extensions d'instructions, 
il: convient de prendre certaines mesures particulières pour arriver à 
l'action voulue, Essayons donc de nous familiariser avec le mécanisme 
nécessaire, 


2.2.1 PROGRAMMATION DES EXTENSIONS EN ASSEMBLEUR 


Si les instructions d’une extension d'instruction quelconque doivent être 
exécutées, il faut tout d’abord que l'adresse de la routine soit connue. 
Comme ces routines peuvent se trouver aussi bien dans la RAM sous la 
forme de ce qu’on appelle une extension RSX que dans les ROMsS dans les 16 
K supérieurs du CPC, il faut donc en outre déterminer une éventuelle 
adresse de ROM. Une routine spéciale du Kernal du CPC sert à retrouver 
ces indications lorsque nous  indiquons le nom de l'extension 
d'instruction voulue, Il faut à cet effet que l'adresse du nom soit 
entrée dans le registre double HL. 11 ne faut d'autre part indiquer le 
nom qu'en majuscules. Le dernier caractère du nom doit être marqué par la 
mise du bit 7 de ce caractère. C'est exactement sous cette forme que 
figurent en ROM et en RAM tous les noms des extensions d'instructions. 

Si le nom se trouve donc en RAM sous la forme voulue et que HL contient 
l'adresse de ce nom, il suffit d'appeler la routine KL FIND COMMAND. 
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KL FIND COMMAND est une routine du kernal du CPC qui a un vecteur en RAM 
à l'adresse 8BCD£, Après que cette routine ait été exécutée, vous obtenez 
en retour les paramètres suivants: 

Si le flag Carry n'est pas mis, c'est que l'instruction correspondante 
n'a pas été trouvée. Soit vous n'avez pas entré correctement Ie nom de 
l'extension d'instruction, soit l'extension n'est pas encore initialisée. 
Avec le lecteur de disquette, ce dernier cas peut survenir Si vous 
allumez d'abord le CPC et ensuite seulement le lecteur de disquette. Mais 
Si vous appuyez alors simultanément sur les trois touches CTRL, SHIFT et 
ESC, un Reset se produira au cours duquel l’extension d'instruction sera 
‘intégrée’, de sorte qu’elle sera ensuite à votre disposition. 

Si par contre le flag Carry est mis après la routine KL FIND COMMAND, 
vous obtenez en retour l'adresse de la routine voulue dans le registre 
double HL, Vous trouverez dans le registre € l’adresse ROM requise, 


Le fait que ce soient précisément ces registres qui reçoivent ces 
informations résulte d’un choix délibéré des programmeurs du système 
d'exploitation. 11 existe en effet une routine Kernal appelée KL FAR PCHL 
qui peut appeler comme sous-programme n'importe quelle adresse dans une 
ROM ou dans la RAM, L'adresse de la routine doit à cet effet être 
transmise dans HL et l'adresse ROM requise dans le registre C, C'est 
exactement ici que Se trouvent les valeurs nécessaires après KL FIND 
COMMAND, de sorte que rien ne manque plus pour appeler la routine, 


Examinons ce mécanisme en prenant l'exemple de l'instruction IDIR, qui ne 
nécessite pas de paramètres supplémentaires, avant que nous n'en venions 
aux instructions qui nécessitent des paramètres sous forme de variable 
numériques ou alphanumér iques, 


100 LD HL, COMMAND :adresse de l'instruction 
110 CALL KL-FIND-COMMAND :adresse &BCD4 

120 RET NC ;pas trouvé instruction 
130 XOR A :pas de paramètres 

140 CALL KL-FAR-PCHL ;acresse &001B 

150 RET 

160 COMMAND: DEFM ‘DI','R'+880 ;nom de l'instruction 


Les deux routines du Kernal utilisées ici sont d'une efficacité vraiment 
fantastique. Plus personne n'a à se perdre dans de longues tables 
d'adresses des routines nécessaires. 11 suffit simplement que le nom de 
la routine soit connu. Cette puissance n'a été à notre connaissance 
atteinte Jusqu'ici sur aucun autre ordinateur domestique. 
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La programmation ne devient que légèrement plus complexe lorsque des 
paramètres doivent être transmis à l'extension d'instruction. Prenons 
d'abord le cas où seules des valeurs numériques entières doivent être 
transmises, C’est par exemple le cas pour l'instruction IUSER. Les 
numéros USER autorisés sont les valeurs de O0 à 15, Voyons un programme 
d'exemple d'appel de l'instruction user avant de traiter des 
particularités de la transmission des paramètres: 


100 LD HL, COMMAND adresse de l'instruction 
110 CALL KL-FIND-COMMAND ;:adresse 8&BCD4 

120 RET NC spas trouvé instruction 
130 LD A,1 > transmettre un paramètre 
140 LD IX, NUMBER ;numéro user voulu 

150 CALL KL-FAR-PCHL ;:adresse 8001B 

160 RET 

170 COMMAND: DEFM ‘USE’, 'R'+880 ;nom de l'instruction 


180 NUMBER: DEFW 0004 


Vous voyez tout d'abord que nous transmettons dans l'accumulateur à la 
routine IUSER Ile nombre de paramètres transmis. Toute autre valeur que 1 
entraîne dans ce cas la sortie de ‘Bad command’, 

Le registre IX pointe sur le numéro user voulu, dans notre exemple le 
numéro user 4, Comme seules des valeurs 16 bits peuvent être transmises, 
la valeur de NUMBER doit être définie à la ligne 180 avec l'instruction 
DEFW, sous la forme d'une valeur sur deux octets (soit 16 bits). 

La programmation n'est donc pas tellement plus compliquée dans ce cas, 11 
faut cependant un peu plus de travail lorsque des chaînes de caractères 
doivent être transmises à l'extension d'instruction, C’est par exemple le 
cas pour les instructions IERA, IREN et IDRIVE, 

Comme vous le savez déjà, les chaînes de caractères ne peuvent pas être 
transmises directement aux instructions de l‘’extension d'instruction. Au 
lieu de cela, c'est le pointeur de variable que vous obtenez avec la 
fonction arobas @ qui doit être transmis. Le pointeur de variable pointe 
sur ce qu'on appelle le string descriptor ou descripteur de chaîne. La 
description détaillée du descripteur de chaîne et de la gestion des 
chaînes de caractères en Basic sort du cadre de cet ouvrage. 


Prenons d'abord l'exemple le plus simple où une seule chaîne doit étre 
transmise comme paramètre, l'instruction IERA. Dans notre exemple, nous 
Supprimerons un fichier portant le nom ‘ADRESSES.DAT'’, 


100 LD HL, COMMAND >adresse de l’instruction 
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110 CALL KLi-FIND-COMMAND ;adresse &BCD4 


120 RET NC ;pas trouvé instruction 
130 LD A,1 >transmettre un paramètre 
140 LD IX, VARPTR ;descripteur de variable 
150 CALL KL-FAR-PCHL ;adresse 8001B 

160 RET 

170 COMMAND: DEFM ‘’ER’','A'+880 ;nom de l’instruction 

180 VARPTR:  DEFW DESCRIP adresse du descripteur 
190 DESCRIP: DEFB 12 ;: longueur de la variable 
200 DEFW FILNAM adresse du nom 

210 FILNAM:  DEFM ‘ADRESSES .DAT' sfichier à supprimer 


Les choses se compliquent encore un peu plus lorsque deux chaînes doivent 
etre transmises, comme c'est le cas pour l'instruction IREN. L'exemple 
suivant vous montre comment vous pouvez changer le nom d'un fichier 
ADRESSES .DAT’ en ’ADRESSES.ANC'’,. 


100 LD HL, COMMAND ;adresse de l'instruction 

110 CALL  KL-FIND-COMMAND :adresse &BCD4 

120 RET NC ;pas trouvé instruction 

130 LD À,2 ;stransmettre deux noms de fichier 
140 LD IX, VARPTR :descripteurs de variable 

150 CALL KL-FAR-PCHL adresse 8&001B 

160 RET 

170 COMMAND: DEFM ‘’RE','N'+880 ;:nom de l'instruction 

180 VARPTR:  DEFW DESCOLD ;sadresse descripteur ancien nom 
190 DEFW  DESCNEN ;sadresse descripteur nouveau nom 
200 DESCOLD: DEFB 12 ;:longueur de la variable 

210 DEFW  OLDNAME :adresse ancien nom de fichier 
220 OLDNAME: DEFM ‘ADRESSES ,.DAT' ancien nom de fichier 

230 DESCNEW: DEFB 12 :longueur de la variable 

240 DEFW  NEWNAME ;adresse nouveau nom de fichier 
250 NEWNAME: DEFM  ’ ADRESSES ,ANC'’ ;nouveau nom de fichier 


Même si dans cet exemple toutes les données ont été bien disposées à la 
suite les unes des autres, elles peuvent cependant figurer en réalité 
n'importe où dans la mémoire du CPC. L'ordre ne joue pas non plus de 
rôle. 11 faut simplement que les pointeurs sur les descripteurs figurent 
en mémoire dans le bon ordre et immédiatement les uns à la suite des 
autres, 


LeS connaissances acquises dans ce chapitre devraient maintenant vous 
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permettre de pouvoir utiliser également en langage machine toutes les 
possibilités disponibles à partir du Basic. Ceia fait certainement déjà 
beaucoup mais cela ne représente qu'une partie de ce qui est 
effectivement possible. Le but de la programmation en langage machine est 
en effet Justement de reculer les limites des possibilités existant en 
Basic, Cependant nous n'en sommes pas encore arrivé là, 


Nous allons donc étudier dans le chapitre suivant quelles possibilités 
supplémentaires s'offrent au programmeur en langage machine. 
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2.2,2 LES INSTRUCTIONS ’CACHEES'’ DE L'EXTENSION D' INSTRUCTION 


En étudiant le Iisting de la ROM nous avons découvert deS possibilités 
qui ne sont nullement évoquées dans le manuel d'utilisation. Outre les 14 
instructions connues de l'extension d'instructions, il Y a encore 9 
autres instructions très intéressantes qui peuvent être mises en oeuvre 
comme les instructions décrites Jusqu'ici. Toutefois ces instructions ne 
peuvent pas être utilisées à partir du Basic comme par exemple 
l'instruction IDIR. 
Toutes ces instructions ont un nom d'un caractère, Ces noms sont 801, &02 
809, Comme pour tous les noms de l'extension d'instruction le 7ème 
bit du dernier caractère doit être mis, les noms effectifs sont donc 881, 
&82 .., 889, De tels noms ne peuvent être entrés dans des programmes 
Basic, L'utilisation de ces instructions est donc en fait ainsi réservée 
au programmeur en langage machine. Pour certaines de ces instructions, 
leur utilisation en Basic ne présenterait d'ailleurs aucun intérêt comme 
vous le montrera Ia description des différentes instructions. 


2,2,2,1 L'INSTRUCTION 881 MESSAGE ON/OFF 


Cette instruction permet d'interdire les messages d'erreur qui peuvent se 
produire en liaison avec les instructions suivantes 882 à 889, I] s’agit 
en particulier des messages d'erreur du disk controller qui demandent à 
l'utilisateur d'entrer C, I ou R pour Chancel, Ignore et Retry. Pour 
arriver à cette interdiction des messages d'erreur, Île programmeur doit 
placer dans l'’accumulateur, avant appel de l'instruction, une valeur non 
nulle, 


100 LD HL, COMMAND >:adresse de l'instruction 

110 CALL KL-FIND-COMMAND ;adresse &BCD4 

120 RET NC ;pas trouvé instruction 

130 LD À,8FF ; valeur pour interdire les 
messages 

1u0 CALL KL-FAR-PCHL :adresse &001B 

150 RET 

160 COMMAND: DEFB 281 ;nom de l'instruction 


La seule fonction de ce programme est de transférer la valeur dans 
l'accumulateur dans la case mémoire &BE/8, Vous pouvez arriver 
certainement plus rapidement au même résultat en écrivant explicitement 
dans cette case mémoire, Mais si l'adresse de cette case mémoire devait 


- O8 - 


etre modifiée, pour des raisons quelconques, dans des versions 
ultérieures de l’AMSDOS, la routine de l'AMSDOS que nous venons de 
décrire sera certainement adaptée de façon à ce que ce solt la nouvelle 
adresse qui soit fournie. Pour des raisons de compatibilité avec 
d'éventuelles versions ultérieures, il faut donc absolument que vous 
utilisiez la routine montrée ci-dessus, si vous ne programmez pas 
exclusivement pour vous même. 


En Basic 1,0, cette routine ne peut être utillsée car vous devez vous en 
tenir aux messages d'erreur sur l'écran, Le numéro d'erreur transmis dans 
l'accumulateur ne vous est en effet pas fourni en Basic 1.0, Le seul 
effet serait d'interrompre le programme en cours et de faire apparaître 
sur l'écran le message laconique ‘BREAK’. Avec le Basic 1.1 du CPC 664 
vous pouvez par contre employer cette routine et interroger les erreurs 
avec ON ERROR GOTO et avec la variable système DERR. Pour les programmes 
Basic, le programme d‘'interception des messages d'erreur que Vous 
trouverez plus tard dans la collection de programmes, est cependant plus 
adapté. 


2,2,2,2 L'INSTRUCTION 882 PARAMETRES DE DRIVE 


Cette instruction autorise la modification des données du lecteur de 
disquette telles que le délai d'attente entre la mise en marche du moteur 
et le moment où est atteint le nombre de rotations voulu, ou la constante 
correspondant au délai qu’il faut attendre après un changement de piste, 
ainsi que le temps de fin de rotation du moteur du disque. Les durées 
pour le HEAD LOAD TIME et pour le HEAD UNLOAD TIME peuvent être également 
fixées à nouveau avec cette routine. 

Contrairement aux routines précédentes de l'extension d'instruction, &82 
ne peut pas être appelée avec les routines connues Jusqu'ici. 882 attend 
en effet dans le registre double HL le début de la table pour les données 
du lecteur de disquette. L'appel avec KL FAR PCHL n'a donc pas lieu 
d'être ici puisque cette routine attend en HL l'adresse de la routine à 
appeler, Il y a cependant également d'autres méthodes pour appeler une 
instruction d'extension. 


100 LD HL, COMMAND ;adresse de l'instruction 

110 CALL KL-FIND-COMMAND adresse &BCD& 

120 RET NC >pas trouvé instruction 

130 LD (FARADR),HL :ranger adresse de la routine 
140 LD A,C >Sélection ROM dans l'’accu 
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150 LD (FARADR+2),A ;et sauver également 


160 LD HL, NEWTAB stables des paramètres disque 

170 RST  &g18 :agit comme un CALL de la routine 
voulue 

180 DEFW  FARADR ;vecteur sur far adress 3 octets 

190 RET 

200 COMMAND: DEFB 2882 >snom de l'instruction 

210 FARADR: DEFS 3 place pour l'adresse 3 octets 

220 NEWTAB: DEFS 7 ;/ octets doivent être transmis à 
882 

230 HDUNLD: DEFS 71 3ici doit figurer l'adresse HEAD 
UNLOAD TIME voulue 

240 HEADLD: DEFS 1 ; HEAD LOAD TIME d'après fiche 


technique du FDC 


Contrairement aux appels précédents de routines de l'AMSDOS, nous avons 
utilisé icl une instruction RESTART,. Le RST représente une forme 
particulière de l’instruction CALL, Ce RST permet, comme avec la routine 
KL FAR PCHL, d'appeler n'importe quelle adresse dans n'importe quelle ROM 
possible ou dans la RAM. L'avantage de RST 818 est cependant qu'aucun 
registre n'est nécessaire. Nous pouvons donc avec cette routine 
transmettre aux sous-programmes à appeler des paramètres même dans Île 
registre double HL et dans le registre C, ce qui n'était pas possible 
avec la routine du KERNAL utilisée Jusqu'ici. Pour cela, les trois octets 
de la FAR adresse doivent être placés dans la mémoire du CPC. Ces trois 
octets, soit l'adresse sur deux octets et l’octet de sélection de 1a ROM, 
doivent absolument être placés dans la mémoire dans l'ordre indiqué et 
l'un après l'autre, 


Nous allons maintenant examiner encore une fois comment la table requise 
doit se présenter, 

La première entrée de la table est une valeur 16 bits qui définit le 
temps qu'il faut attendre après la mise en marche du moteur du disque, I1 
est évident que la disquette n’atteint pas la vitesse de rotation voulue 
Immédiatement après que le moteur du lecteur ait été mis en marche. Cela 
ne se produit qu'au bout d'environ une seconde, La valeur standard après 
la mise sous tension est donc de 50 décimal, Cette valeur est décomptée 
avec un ticker event, Comme le ticker est exécuté tous les cinquantièmes 
le Seconde, on obtient un délai d'attente d'exactement une seconde. 

La deuxième entrée de la table décrit le temps de fin de rotation des 
moteurs après le dernier accès à la disquette. Ici aussi on travaille 
avec le ticker, Après initialisation d'AMSDOS, la valeur 16 bits utilisée 
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est 250 décimal. Cela correspond à une période de fin de rotation de 2,5 
secondes, 

La troisième entrée de la table est une valeur sur un octet. La valeur 
standard est ici &AF. Cette valeur n'est utilisée que par la routine 886, 
formatage d’une piste, Elle ne doit pas être modifiée. 

La valeur 16 bits suivante définit également des délais d'attente. 
L'octet fort de cette valeur détermine le temps qu’il faut attendre après 
un changement de piste. C’est un délai d'attente de 12 ms qui est fixé 
comme valeur standard. Ce délai d'attente dépend du lecteur de disquette 
utilisé. 

Deux autres délais d'attente doivent être définis dans cette table. Ce 
sont les valeurs pour HEAD LOAD TIME et HEAD UNLOAD TIME qui sont 
requises par Ie circuit intégré du controller, Les valeurs prescrites en 
ROM sont 32 ms pour HEAD UNLOAD TIME et 16 ms pour HEAD LOAD TIME. Vous 
trouverez plus loin la signification exacte de ces valeurs, dans la 
description du FDC 7/65, 


L'instruction 882 est exécutée automatiquement par AMSDOS après la mise 
sous tension ou après un Reset. Sous CP/M également, cette fonction est 
exécutée une fois après le lancement de CP/M, Sous CP/M il est possible 
de définir comme vous le souhaitez les différents paramètres dans le 
programme SETUP,.COM. Vous trouverez la table utilisée après le Reset à 
l'adresse &C5D4 dans la ROM de l'AMSDOS, 


2,2,2,3 L'INSTRUCTION 885 PARAMETRES DE FORMAT DE DISQUE 


Comme vous le savez, le CPC est prévu pour pouvoir travailler avec trois 
formats de disquette différents, L'’instruction 883 permet de déterminer 
le format d’une disquette placée dans le lecteur de disquette actif. Pour 
chaque format figure une table dans la ROM de l'AMSDOS, Suivant la valeur 
transmise dans l’accumulateur, la table requise Sera placée dans 1a RAM 
du CPC, L'utilisateur peut donc ainsi mettre en place les tables qui 
conviennent dans des programmes machine avec accès direct de secteur. En 
Basic, l'utilisation de cette instruction est possible mais elle ne 
présente aucun intérêt puisque AMSDOS détermine ces valeurs par lui-même. 
Même si vous indiquez donc un format déterminé, le format sera une 
nouvelle fois déterminé, avant l'accès à la disquette. 


100 LD HL, COMMAND ;adresse de l'instruction 


110 CALL KL-FIND-COMMAND ;vecteur &BCD4 
120 RET NC ;pas trouvé instruction 


“A0: 


130 LD (FARADR),HL ;ranger adresse de la routine 


140 LD A,C ;:Sélection ROM dans l’accu 

150 LD (FARADR+2),A ;et sauver également 

160 LD HL, FORMAT marque du format (voir texte) 
170 RST  £g18 

180 DEFW FARADR ;vecteur sur far adress 3 octets 
190 RET 

200 COMMAND: DEFB 883 ;snom de l'instruction 

210 FARADR:  DEFS 3 >place pour l'adresse 3 octets 


Ce programme ne se distingue en aucune manière de ceux qui ont été 
présentés jusqu'ici. 11 reste Simplement à définir comment les marques 
des différents formats doivent se présenter. 

Cette distinction est entreprise au moyen des numéros de secteur, Avec le 
format CP/M-AMSDOS, il y a sur chaque piste d’une disquette 9 secteurs de 
512 octets chacun, Ces 9 secteurs portent les numéros 841 à 849, Cela 
Signifie que le bit 6 est mis sur chaque numéro de secteur. Dans le 
format de données AMSDOS par contre, les numéros de secteur sont &Cc1 à 
8&C9, Dans ce cas, les bits 6 et 7 sont mis sur chaque numéro de secteur. 
En format 1BM-CP/M, les numéros de secteur sont &01 à 808. En effet, avec 
ce format, Seuls 8 secteurs sont formatés sur la disquette, 11 y a donc 
ainsi un critère très simple pour distinguer entre les trois formats 
disponibles, Si vous transmettez à la routine 883 la valeur O0 (ou toute 
autre valeur dont les bits 6 et 7 soient annulés), c'est la table de 
paramètres pour le format 1BM-CP/M qui sera alors mise en place dans la 
RAM, Le format CP/M-AMSDOS est mis en place lorsqu'une valeur avec un bit 
6 mis et un bit 7 annulé est transmise. Cela pourrait donc être &40 mais 
aussi &/3, Si vous mettez les deux bits supérieurs de la valeur à 
transmettre (par exemple 8&CO ou &FF), c'est le format AMSDOS de données 
qui Sera mis en place. 


2.2,2,4 L'INSTRUCTION 884 READ SECTOR 


La puissance de cette instruction ne doit pas être sous-estimée, Elle 
permet en effet de lire directement n'importe quel secteur de la 
disquette! 

Vous n'êtes plus ainsi lié aux structures de fichier connues mais vous 
pouvez construire si nécessaire des structures qui vous soient 
cntièrement propres comme par exemple des fichiers relatifs ou ISAM, 
puisque l'instruction suivante 885 permet en outre d'écrire directement 
sur n'importe quel secteur. Avec ces deux instructions, tous les octets 


02e 


figurant sur la disquette sont à votre disposition en accès direct. 


Pour pouvoir lire une secteur déterminé avec 8&84, certaines indications 
doivent être fournies à la routine. 

[Il S’agit tout d'abord du lecteur de disquette voulu. Cette indication 
doit être placée dans le registre E, Une valeur de O0 dans le registre E 
Sélectionne le lecteur À, un 1 sélectionne le lecteur B. 

[Il faut d'autre part également indiquer à la routine le Secteur voulu. 
C'est le registre C qui à été choisi comme registre pour ce paramètre. 
C'est toutefois le numéro de secteur figurant effectivement sur la 
disquette qui doit être transmis. Si vous voulez par conséquent lire le 
premier Secteur d'une piste écrite en format CP/M-AMSDOS, le numéro de 
secteur correct sera donc &41, Le décalage sélectionné lors du formatage 
dans les bits 6 et 7 comme marque de format doit donc être inclu dans la 
valeur fournie. 

I1 faut enfin indiquer encore la piste (track) voulue sur la disquette. 
Le numéro de piste est indiqué dans le registre D, Dans l'AMSDOS les 
numéros de piste entre &00 et 827 (39 décimal) sont autorisés. 


Voila donc comment transmettre à travers les registres corrects tous les 
paramètres importants, Mais attention! Cela ne va pas tout à fait aussi 
vite, Nous devons encore décider dans quelle adresse mémoire doivent être 
écrits les 512 octets d’un Secteur, Cette indication doit être transmise 
dans le registre HL. Nous avons ainsi réuni tous les paramètres et les 
données peuvent être envoyées, 


100 LD HL, COMMAND :adresse de l'instruction 

110 CALL KL-FIND-COMMAND ;vecteur gBCD4 

120 RET NC ;pas trouvé instruction 

130 LD (FARADR),HL >ranger adresse de la routine 

140 LD ASC sélection ROM dans l'accu 

150 LD (FARADR+2),A ;set sauver également 

160 LD E, DRIVE :0/1 pour drive A/B 

170 LD D, TRACK ;0 à 39 pour piste voulue 

180 LD C, SECTOR ;:numéro de secteur avec décalage 
de format 

190 LD HL, BUFFER :512 octets pour les données du 
secteur 

200 RST  &18 :agit comme un CALL de la routine 
voulue 

210 DEFW  FARADR :vecteur sur far adress 3 octets 

220 RET 
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230 COMMAND: DEFB &84 ;nom de l'instruction 
240 FARADR: DEFS 3 :place pour l'adresse 3 octets 


Nous n'allons pas écrire maintenant un moniteur de disque complet. Le 
programme Basic suivant fournit cependant déjà la fonction ‘lecture de 
secteurs’, Tapez donc ce programme, complétez-le et analysez-le pour vous 
familiariser avec la manipulation des instructions. Ce petit programme 
représente l’armature de base du moniteur de disque déjà évoqué, 

Avant que vous n'essayiez de vous assurer du bon fonctionnement de ce 
programme, il faut absolument que vous fixiez la protection contre 
l'écriture sur la disquette que vous utiliserez, 11 suffit en effet qu’un 
seul octet soit erronné, notamment l'octet de commande, pour que le 
secteur sélectionné ne Soit pas Iu mais remplacé par les données du 
buffer. Si vous remplacez par exemple de cette façon le premier secteur 
du catalogue de votre disquette master CP/M par un série de O0, il ne nous 
reste plus qu'à vous souhaiter que vous en ayez déjà fait une copie. 
Sinon 16 programmes de cette disquette seront sans aucun doute perdus. 
Suivez donc le conseil que nous vous donnons maintenant dans votre 
intérêt: 


BACKUP, BACKUP, BACKUP !f11! 
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100 DEFINT a-z 

110 MEMORY &A000-1 

120 FOR adresse=&A000 TO &AO1C 

130 READ octet 

140 POKE adresse, octet 

150 controle=controle+octet 

160 NEXT adresse 

170 IF controle<>2941 THEN PRINT'erreur en datas!":ÆEND 
180 MODE 2 

190 INPUT"Canal de sortie (0/8)";periph 

200 INPUT"Lecteur (0/1)"; lecteur 

210 INPUT"Piste (0-39)";piste 

220 INPUT'"Secteur (1-9)"; secteur 

230 POKE &A020, lecteur 

240 POKE &A021,piste 

250 POKE &A022,secteur+64 

260 CALL &A000 

270 MODE 2 

280 lincnt=0 

290 FOR i=&A030 TO &A030+511 

300 IF lincnt=0 THEN PRINT#periph," ";HEXS(i-8&A030,4);" "; 
310 PRINT#periph,HEXS(PEEK(i),2);" ";:1incnt=lincnt+1 
320 IF lincnt=16 THEN lincnt=0 

330 a=PEEK(i):a=a AND 127 

340 IF a<32 OR a=127 THEN t$="." ELSE tS=CHRS(a) 

350 lin$=1in$s+ts 

360 IF Vlincnt=0 THEN PRINT#periph,lin$:1lins="" 

370 NEXT 

380 PRINT"Appuyez sur la barre <ESPACE> pour continuer" 
390 IF INKEY(4/7) THEN 390 

400 GOTO 180 

410 DATA &21,&1c,&a0,&cd,&d4,&bc,&22,&ld 

420 DATA &a0,879,832,81f,&a0,&21,8&20,&a0 

430 DATA &5e,823,856,8&23,&de,&21,8&30,&a0 

440 DATA &df,&ld,&a0,&c0,&84 


La manipulation du programme est expliquée par le programme lui-même. La 
transmission des paramètres se fait d'après le principe des boîtes à 
lettres, c'est-à-dire que nous écrivons les valeurs dans certaines cases 
mémoire d’où elles sont ensuite retirées par le programme machine. Cela 
est malheureusement nécessaire car il n’est pas possible de charger 
directement certaines valeurs dans les registres du Z80 à partir du 
Basic. 

Après que les paramètres nécessaires aient été POKES dans la mémoire, la 
routine en langage machine est appelée avec CALL. Le secteur indiqué est 
recherché sur la disquette et les données sont écrites dans un buffer de 
512 octets qui commence en &A030, Les octets sont Ius ici par le 
programme Basic qui les affiche sur l'écran en format hexadécimal. Vous 
pouvez également choisir de détourner la sortie sur une imprimante 
connectée à votre ordinateur. 
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2.2,2,5 L'INSTRUCTION 885 WRITE SECTOR 


La simple lecture des données est déjà intéressante en soi. La routine 
que nous venons de vous présenter vous permet en effet un examen très 
intéressant du catalogue par exemple ou des pistes système O0 et 1 d’une 
disquette CP/M. Mais nous pouvons faire plus. L'écriture de données sur 
n'importe quel secteur de la disquette avec l'instruction 885 est aussi 
simple que la lecture avec l'instruction 884. Les paramètres nécessaires, 
le numéro du lecteur, la piste, le secteur et l'adresse du buffer de 
données sont même transmis à travers les mêmes registres que pour la 
lecture, Les modifications à apporter au programme précédent se ramènent 
donc à un seul octet, Seuls doivent être modifiés le numéro de 


‘Instruction qui est le dernier élément de DATA dans le programme Basic 
ainsi bien sûr que la valeur de contrôle. 


Vous pouvez expérimenter cette possibilité en prenant une disquette que 
vous venez de formater et en essayant d'écrire sur un secteur. Vous 
pouvez POKEr à cet effet n'importe quelles valeurs dans le buffer de 
secteur et écrire ensuite ce buffer sur un secteur, Avec la routine de 
lecture que nous vous avons fournie, vous pourrez ensuite contrôler si 
tout a bien marché comme vous le vouliez, 


2.2,2,6 L'INSTRUCTION 886 FORMAT TRACK (FORMATER UNE PISTE) 


Cette instruction est pour ceux d'entre vous qui sont des spécialistes. 
Elle permet de formater une piste isolée sur la disquette. Avec l'aide de 
l'instruction 886, vous pouvez intégrer dans vos programmes des routines 
de formatage, de sorte que l'utilisateur n'est pas obligé de se contenter 
du programme CP/M ’FORMAT,.COM'. 

Avant que nous n’expliouions plus en détail cette instruction ‘cachée’ de 
l'extension d'instructions, il nous faut expliquer comment le FDC 765 
formate une piste. Pour ne pas déflorer la description à venir du FDC 
7/65, nous ne vous révèlerons pour le moment que les points suivants: 


Le controller du lecteur de disquette est, en ce qui concerne le 
formatage des disquettes, très axé sur les besoins des utilisateurs. Il 
se contente de certains octets, en petit nombre et il fait lui-même tout 
le ‘sale boulot’ comme par exemple la production des valeurs de contrôle, 
les différents marquages d'ID et ce qu’on appelle les GAPs, Il observe 
d'autre part quand l'orifice d’index marque le début d'une piste et il 
reconnaît par lui-même si la disquette est ou non protégée contre 
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l'écriture. Si ce composant rusé doit formater une piste, il a d'abord 
besoin de l'instruction correspondante. Cette instruction lui dit (entre 
autre) quelle piste il doit formater, sur quel lecteur, quelle est la 
taille des secteurs à produire et quelle valeur il doit utiliser comme 
octet de remplissage, L'’octet de remplissage est une valeur qui figure, 
après un formatage réussi, sur tous les secteurs, en guise de données, 

Il est évident que le moteur du lecteur doit être mis en marche pour un 
formatage, Dès donc qu'après l'instruction l'’orifice d'index est reconnu, 
commence la procédure de formatage véritable. Le FDC attend du processeur 
4 octets pour chaque secteur à formater. Pour chaque secteur doivent être 
indiqués les numéros de piste, de tête et de secteur ainsi que la taille 
du secteur. Du fait que le numéro de secteur doit être également indiqué 
pour chaque secteur, les secteurs peuvent étre placés sur la disquette 
dans un ordre fixé par le programmeur, Cela peut considérablement 
accélérer les accès ultérieurs, 


Mais nous en dirons plus à ce sujet plus tard, Nous allons maintenant 
voir ce que tout cela a à voir avec l'instruction 886. 

L'instruction 886 attend des paramètres dans différents registres, comme 
les routines de lecture et d'écriture de secteur que nous avons décrites 
précédemment, Il y a d'abord la piste voulue, Cette valeur est transmise 
à travers le registre D, Dans le registre E doit Se trouver la valeur du 
lecteur voulu, Le registre C reçoit le numéro du premier secteur à 
formater et le registre double HL est utilisé comme pointeur sur une 
table, 

Les trois premiers registres et leurs fonctions ne se distinguent pas de 
ceux des routines décrites précédemment, Mais le registre double HL a lui 
aussi une fonction comparable à celle qu’il a pour l'écriture des 
données, En effet, dans la table adressée par HL figurent pour chaque 
secteur à formater 4 octets qui sont les valeurs déjà indiquées pour la 
piste, la tête et le lecteur, le numéro de secteur et la taille du 
secteur, L'exemple de programme suivant vous montre comment une piste 
isolée peut être formatée. 


100 3 FORMATAGE D'UNE PISTE ENTIERE 

110 START: LD E,DRIVE ;numéro de lecteur voulu dans le 
registre E 

120 LD D, TRACK numéro de piste dans le registre D 

130 LD C,841 spremier numéro de secteur sur la 
piste 

140 LD HL,FTAB ; table des 32 octets pour le FDC 

150 RST  &g18 :Call Format 887 
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160 
170 
180 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
230 
>40 
250 
560 


FORMAT: 


FTAB: 


SECT1: 


SECT2: 


SECT3: 


SECT4 : 


SECTS: 


SECTE: 


SECT 7: 


SECT8: 


SECT9: 


DEFNW 
RET 
DEFW 


DEFB 
EQU 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


FORMAT 


8&C652 


7 

$ 
TRACK 
HEAD 
841 


TRACK 
HEAD 
843 


TRACK 
HEAD 
845 


TRACK 
HEAD 
847 


TRACK 
HEAD 
849 


TRACK 
HEAD 
842 


TRACK 
HEAD 
guu 


TRACK 
HEAD 
846 


TRACK 
HEAD 
848 


adresse de far adress de trois octets 
:la piste est formatée 

adresse de la routine 887 dans 
1  AMSDOS 

;adresse nécessaire pour sélection ROM 


;:numéro de piste pour ID de secteur 
numéro de tête du lecteur 

numéro du secteur 

;staille du secteur pour l'ID 
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2.2,2,7 L'INSTRUCTION 887 SEEK TRACK (RECHERCHE DE PISTE) 


Bien que toutes les instructions avec accès direct à la disquette vues 
jusqau’ici se déplacent d'elles-mêmes vers la piste voulue, il peut être 
intéressant pour certaines applications de pouvoir positionner la tête 
Sur une piste déterminée. Cette tâche est accomplie par l'instruction 
887. 

Pour le positionnement, deux paramètres seulement sont requis, Il faut 
d'abord indiquer le numéro du lecteur voulu. Le second paramètre exigé 
est le numéro de la piste vers laquelle la tête doit se déplacer. 

Pour cette routine également, les programmeurs ont utilisé les registres 
comme interface. Le numéro de lecteur doit être transmis dans le registre 
E alors que le registre D doit contenir le numéro de piste. 

L'utilisation des flags comme marque du succès de la routine fonctionne 
également comme à l'habitude. Un Carry mis vous indique que la piste 
recherchée sur la disquette a été trouvée, 

Comme le programme nécessaire ne se distingue pas non plus 
fondamentalement des routines présentées précédemment, nous renoncerons 
ici pour une fois à le réécrire. 


2,2,2,8 L'INSTRUCTION 888 TEST DRIVE 


Voulez-vous savoir dans un programme machine si un lecteur de disquette 
déterminé est disponible? Rien de plus simple que cela, L'instruction 888 
révèle toutes les informations importantes sur le lecteur sélectionné. 
Cette routine représente toutefois une exception dans une certaine mesure 
puisqu'elle n'attend pas l'indication du lecteur à tester comme 
d'habitude dans le registre E mais dans l'’accumulateur. 


Au retour de cette routine les flags et le contenu de l'’accumulateur 
permettent de déterminer si le lecteur de disquette sélectionné est 
disponible. En cas d'exécution correcte de la routine, le flag Carry sera 
mis. L’accumulateur contient alors le contenu du registre d'état O du 
FDC. La seule chose intéressante à cet égard c'est que si le lecteur de 
disquette sélectionné est disponible l’accumulateur contiendra 0 pour le 
drive À ou 1 pour le drive B. 


Vous trouverez une explication détaillée des autres valeurs, qui 


surviennent en cas d'erreur, dans le chapitre sur la programmation du 
FDC. 


JUS 


2,2.2.9 L'INSTRUCTION 889 RETRY COUNT 


Si la tête doit être positionnée sur la disquette sur une piste 
déterminée, cela peut être réalisé très aisément avec l'instruction 88/7, 
Avec cette instruction on indique en effet au controller la piste voulue. 
Un registre spécial du FDC contient le numéro de piste actuel et le FDC 
détermine à partir de cette valeur et de la nouvelle piste indiquée le 
nombre d'impulsions nécessaires pour le stepper motor du lecteur de 
disquette. Après que le lecteur ait déplacé la tête de lecture/écriture 
du nombre de pas correspondant dans la direction voulue, le FDC lit 
automatiquement le numéro de piste qui a été placé sur la piste lors du 
formatage. 

Si le numéro lu correspond au numéro voulu, l'instruction s'est achevée 
avec succès, Tout autre est le cas où aucune information ne peut être lue 
ou bien où le numéro de piste lu est différent du numéro voulu, Dans ce 
cas une nouvelle tentative pour trouver la piste voulue sera entreprise. 
C'est exactement ici qu'intervient l'instruction &89, Cette instruction 
permet de fixer le nombre de tentatives de lecture après positionnement. 
L'AMSDOS prévoit une valeur par défaut de 10 tentatives, C'est 
normalement suffisant, Il peut toutefois arriver qu'il soit nécessaire 
d'augmenter ce nombre. 

La nouvelle valeur voulue est transmise dans l'’accumulateur à la routine 
&89, Il faut cependant noter à cet égard que la valeur 0 est comprise 
comme la valeur maximale 256, 11 ne sert pas à grand chose d'employer des 
valeurs de 1 à 9 mais on peut par contre ressusciter parfois des 
disquettes présentant des problèmes de lecture en utilisant un nombre de 
tentatives de lecture supérieur à 10. 


Pour expérimenter rapidement et sans assembleur les effets de cette 
routine, vous pouvez essayez de POKEr la valeur O0 dans la case mémoire 
8&BE66. Cela revient à l'appel de l'instruction 889 avec transmission de O0 
à travers l'’accumulateur. Si vous placez maintenant une disquette brute, 
non formatée dans le lecteur, et que vous essayez de faire afficher le 
catalogue, vous entendrez très distinctement comment la tête “s’acharne” 
sur la disquette pour trouver la piste voulue, Si vous POKEZ par contre 
un 1 dans la case mémoire &BE66, vous verrez que le lecteur de disquette 
se donne beaucoup moins de mal pour essayer de trouver des données sur 
cette disquette vide. 


CHHIUL 


2,3 LES MESSAGES D'ERREUR DES ROUTINES DISK 


Rien ni personne n'est parfait, L'’AMSDOS doit donc lui aussi être prêt à 
faire face dans tous les endroits importants à des erreurs de formes tout 
à fait différentes, Lorsque des erreurs sont constatées, elles sont 
indiquées à l'utilisateur sous une forme où une autre. 

Pour autant que cela soit possible, les programmeurs ont essayé d'obtenir 
une très large compatibilité avec le travail sur cassette. Le meilleur 
exemple est à cet égard l'état des flags Zéro et Carry lors d'une 
exécution réussie. Comme pour les routines cassette correspondante, le 
flag Carry est en effet mis et le flag Zéro annulé dans ce cas. Les 
erreurs qui peuvent être détectées de même manière par les deux types de 
routines sont indiquées par le fait que les deux flags Carry et Zéro sont 
annulés, 

Les erreurs qui ne peuvent être annoncées que par le lecteur de disquette 
sont indiquées par le fait que le flag Zéro est mis, En Basic 1,0 cet 
état du CPC 464 est interprété comme si la touche ESC avait été appuyée 
lors d’une opération cassette, Le programme en cours est donc interrompu 
et le message BREAK est sorti, En Basic 1.1, il est heureusement possible 
d'intercepter également ces erreurs avec ON ERROR GOTO, sans interruption 
du programme. Dans ce cas, la variable système DERR indique quelle erreur 
s'est produite. DERR ne correspond cependant PAS à la valeur de 
l'accumulateur après la routine disquette. 

Nous allons maintenant étudier de plus près ce contenu de l'accumulateur 
car il est très important pour les programmeurs en assembleur. Les 
valeurs sont les mêmes pour le 464 et pour le 664, 


&OE FILE NOT OPEN AS EXPECTED. 

Ce message d'erreur peut être provoqué par des actions très différentes. 
Ce message survient en effet lorsque vous passez dans un fichier d'entrée 
d'une possibilité de Iecture des données à l’autre, Vous obtenez 
également ce numéro d'erreur lors de la fermeture du fichier si vous avez 
appelé plus d'une fois la routine DISK OUT DIRECT, 


&O0F HARD END OF FILE. 

Ce message d'erreur est sorti lorsque vous demandez d'autres données 
après la fin du fichier et que le buffer devrait être rempli avec de 
nouvelles données de la disquette, 


&1A SOFT END OF FILE. 


Ce message signale que vous avez atteint la fin du fichier, Vous devriez 
maintenant le fermer. 


EN 5 DE 


&20 BAD COMMAND. 

Vous obtenez ce message par exemple lors d'entrées incorrectes de noms de 
fichier, Cela comprend par exemple les points d'interrogation dans 1e nom 
de fichier pour OPENIN. L'indication de lecteurs non autorisés ou de 
numéros user trop élevés provoque également ce message d'erreur. 


&21 FILE ALREADY EXISTS. 

Ce message d'erreur ne survient qu'en relation avec le changement de nom 
d'un fichier, Si vous inversez l'ordre des noms de fichier dans une 
instruction de changement de nom, AMSDOS sortira ce message d'erreur, 


&22 FILE DOESN'T EXIST. 

On obtient ce numéro d'erreur lorsqu'on tente d'accéder à des fichiers 
qui n'existent pas. La cause de l'erreur peut être que vous vous êtes 
trompé de disquette ou que le nom de fichier n'a pas été entré 
correctement. 


&23 DIRECTORY FULL, 

Une fois que 64 fichiers ont été entrés, le catalogue (directory) est 
plein. Même S'il y a encore des blocs libres sur la disquette, plus rien 
ne peut être sauvegardé sur la disquette. 


&24 DISC FULL. 
Tous les blocs de la disquette sont affectés à des fichiers. La 
sauvegarde de données supplémentaires à été interrompue, 


&25 DISC HAS BEEN CHANGED WITH FILES OPEN. 

Si vous obtenez ce numéro d'erreur lors de la lecture de données, cela 
n'est pas très grave. Les conséquences deviennent cependant fatales si 
vous changez de disquette alors qu'un fichier de SORTIE est encore 
ouvert, Ce fichier ne sera pas alors correctement fermé. Vous pouvez 
perdre jusqu'à 2047 octets qui n'ont pas été transférés du buffer sur la 
disquette, 


&26 FILE IS READ ONLY. 

Ce numéro d'erreur apparaît dans l'accumulateur lorsque vous avez tenté 
de modifier le nom d'un fichier protégé contre l'écriture ou lorsque vous 
avez tenté de supprimer un tel fichier. 


Il convient d'ajouter après ces numéros d'erreur une remarque 


essentielle. Si l'erreur a déjà été communiquée, si donc elle a déjà été 
sortie sur l'écran, Ie bit 7 de son code d'erreur est mis. Le numéro 


+ M2 


d'erreur 824, Disk full, deviendrait donc par exemple gA4, 


Outre les erreurs ‘logiques’ de I1'AMSDOS, il y a cependant également les 
erreurs ‘physiques’ du FDC, Ces erreurs concernent par exemple les 
erreurs de jlecture, Îles erreurs d'écriture à cause de la protection 
contre l'écriture ou le cas où aucune disquette n’a été placée dans le 
lecteur, Ces messages d'erreur peuvent être reconnus par le fait que le 
bit 6 du numéro d'erreur est mis, Les erreurs possibles sont marquées par 
les bits du numéro d'erreur, La signification des différents bits est: 


BIT O ADRESS MARK MISSING. 
Cette erreur signale une disquette non formatée. 


BIT 1 NOT WRITABLE, 

La disquette est protégée contre l'écriture au moment d’un accès en 
écriture, Notez que cette erreur ne survient pas encore lors d'un OPENOUT 
car OPENOUT n'est pas encore écrit sur la disquette. 


BIT 2 NO DATA, 

Le secteur indiqué n'a pas pu être trouvé. Cette erreur ne se produira 
qu’en liaison avec des routines programmées par l'utilisateur pour la 
lecture et l'écriture directe de secteurs. 


BIT 3 DRIVE NOT READY. 

[Il n’y a probablement pas de disquette dans le lecteur appelé. Une autre 
possibilité pouvant entraîner cette erreur est un accès à un lecteur non 
présent. 


BIT 4 OVERRUN ERROR, 

Cette erreur devrait être particulièrement rare car elle ne peut en fait 
pas survenir étant données les routines de secteur existantes. Si vous 
etes cependant gagné par l'ambition d'écrire vos propres routines de 
lecture/écriture directe de secteur, cette erreur peut alors par exemple 
survenir si votre routine est trop lente ou si vous négligez d'interdire 
les interruptions, 


BIT 5 DATA ERROR. 
Ce numéro d'erreur est le pire qui puisse survenir lors du travail sur 
disquette, Dans ce cas, en effet, le secteur indiqué n’est pas lisible, 


Pour ces messages d'erreur également, le bit 7 signale si l'erreur a déjà 
été communiquée, 
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CHAPITRE 3: DONNEES TECHNIQUES DU LECTEUR DE DISQUETTE ET DE LA DISQUETTE 


3.1 LE DISK CONTROLLER 


Alors que sur le CPC 664 l'électronique de l'ordinateur et l'interface 
disquette sont intégrées dans le boîtier de l'ordinateur, sur le CPC 464, 
l'électronique du lecteur de disquette figure dans un petit boîtier 
enfiché dans le port d'extension. Nous allons décrire ici l'électronique 
de l'interface disquette externe dont vous trouverez le schéma dépliable 
en annexe de cet ouvrage, Les connexions sont sensiblement les mêmes pour 
les deux ordinateurs, de sorte que même les possesseurs d'un CPC 464 
peuvent profiter de la description suivante, Nous évoquerons les 
principales différences lorsque nous  traiterons des endroits 
correspondants, Pour le moment, le schéma de fonction 3.1,1 suffira à 
nous donner un aperçu des éléments de l'interface disquette. 


Le point central du controller board est constitué par le floppy disk 
controller (FDC)  PD 765, Ce circuit intégré constitue l'interface entre 
les lecteurs et le processeur du CPC. On peut certes tout à fait 
construire des lecteurs de disquette sans FDC mais la grande 
‘intelligence propre’ du FDC simplifie grandement Ia construction. 
L'électronique nécessaire ainsi que l'importance du logiciel 
d'exploitation sont considérablement réduites par l'emploi d'un FDC, Un 
exemple éclairera ce point. 

Le lecteur de disquette 1541 de la firme Commodore que beaucoup d'entre 
vous connaissent certainement comme lecteur de disquette du Commodore 64 
est un lecteur de disquette construit sans FDC. Sans compter la lenteur 
de la transmission des données dûe à la construction même du lecteur 
(lenteur qui ne peut que faire sourir les possesseurs d'un CPC), 
l'investissement électronique pour ce lecteur est beaucoup plus important 
que sur le lecteur de disquette du CPC. L'’électronique digitale du 1541 
contient un processeur propre, des circuits intégrés périphériques de 40 
pôles et une masse de circuits intégrés TTL de toute sorte. Cette masse 
de composants correspond à celle que requiert un CPC 664 complet! 

Le logiciel d'exploitation du 1541 est, avec 16 K, deux fois plus grand 
que l'AMSDOS, Il est évident que les développeurs (pour des raisons de 
confort) et les commerçants (pour des raisons de coût) recourent 
volontiers aux FDCs dont l’utilisation est si pratique. 

Avant que nous n'ôtions pour ainsi dire dans les pages suivantes le 
couvercle du FDC, nous allons jeter un regard sur le Schéma et examiner 
les fonctions de base. 
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5.1.1 DESCRIPTION DE L'ELECTRONIQUE DU FLOPPY CONTROLLER BOARD 


L'électronique complète du controller externe du 464 se compose de 12 
circuits intégrés, 2 transistors, 20 résistances, 15 condensateurs et une 
diode, le nombre de composants étant comparable sur le 664, Ce petit 
nombre de composants n'a pu être obtenu que par la haute intégration de 
trois circuits intégrés. Il s’agit du FDC, du séparateur de données et de 
la ROM avec Il'’AMSDOS, Nous avons déjà parlé des deux premiers circuits 
intégrés. Intéressons-nous à la ROM AMSDOS. Les indications sur les noms 
des circuits intégrés correspondent à ceux du disk controller du 464. I] 
n'y à cependant sur ce plan pas de différences fonctionnelles importantes 
entre 464 et 664, 


Bien que sur le CPC les ROMsS externes ne puissent avoir qu'une taille de 
16 K, le fait qu'un circuit intégré de 28 pôles ait été employé peut 
légitimement faire supposer que la ROM intégrée est une ROM de 32 K, 

Nous ne savons pas à vrai dire s'il s’agit effectivement d'une ROM si 
généreusement employée ou s’il s’agit simplement d'un habitacle spécial. 
Toutefois l'emploi d'une ROM aussi grande comporte un avantage essentiel, 
Comme la ROM réside sur un socle de 28 pôles, il est possible de modifier 
le système d'exploitation et de le remplacer sans bricolage par une EPROM 
16 K. 

Et il y a dans les 16 K utilisés plus de place qu'il n’en faut pour vos 
propres extensions. L'’AMSDOS n'occupe qu'à peine 8 K de la place mémoire 
disponible, Les 8 K restants sont nécessaires pour LOGO qui ne laisserait 
sinon presque plus de place pour les programmes LO60 sans l'emploi de 
cette zone de la ROM, Si l’on accepte cependant de renoncer au langage de 
programmation LOGO, un système d'exploitation étendu du lecteur de 
disquette peut donc avoir jusqu’à une taille de 16 K. 


Pour adresser 16 K, il faut au total 14 canaux d'adresse, Ces 14 
connexions de la ROM sont reliées directement à la fiche s’enfichant dans 
le port d'extension du CPC, Les 8 canaux de données sont également placés 
directement, sans circuits intégrés buffer, sur le bus de données du 
processeur. Le chip est activé par le signal ROMEN du port d'extension du 
CPC. Les sorties de données ne sont toutefois effectivement placées sur 
le bus de données que lorsque se produit un low (niveau faible) du signal 
OE (Output  Enable: autoriser sortie). Cette distinction est 
particulièrement importante sur le CPC puisque le signal ROMEN devient 
également low lors d'accès du processeur au kernal et au Basic. 

La production du signal OE est relativement simple du point de vue de 
l'électronique. Un instruction OUT sur l'adresse g&DFxx avec une valeur de 


#:110: 


/ suffit pour que la sortie Q (pin 5) du flip-flop IC 112-1 devienne 
high, 

L'octet de donnée 7 (cela correspond à l'adresse de sélection de ROM pour 
ce qu'on æpelle les far calls) entièrement décodé par les triples portes 
logiques Nor IC 111-1 et 111-2, la porte logique Nand IC 110-3 et les 
trois portes logiques XOR IC 109-1 à 109-3, Le décodage de l'adresse de 
port &DFxx est par contre effectué de façon très simple et incomplète. On 
teste Simplement pendant l'instruction OUT si le bit d'adresse A13 est 
bien sur un niveau Ion, 

Si ces deux conditions sont remplies, un high apparaît sur la sortie du 
flip-flop dont nous avons parlé. Toute autre valeur sur le bus de données 
provoque un low sur la sortie du flip-flop et ainsi la déconnexion de la 
ROM AMSDOS, La sortie du flip-flop est reliée aux deux portes logiques 1C 
110-1 et IC 106-1, L'autre entrée des deux portes logiques est reliée au 
canal d'adresse A15, Si maintenant le processeur veut accéder, alors que 
la sortie du flip-flop est mise, à une adresse de la ROM (ce qu’indique 
le signal ROMEN) située dans la zone de &C000 à &FFFF, la sortie de l’IC 
110-1 devient 1ow et la ROM AMSDOS obtient un niveau low sur la connexion 
OE, Simultanément, la sortie de la porte logique 1C 106-1 devient high et 
la ROM Basic située à ces adresses est déconnectée à travers la diode 
D101, 


Si Vous Suivez encore une fois sur le schéma les branchements de décodage 
de l'adresse de Sélection de ROM vous constatez que les trois portes 
logiques XOR de l'I1C 109 sont placées ensemble, avec une entrée chacune, 
sur la masse à travers le pont LK 1. Que se passe-t-il donc lorsque ce 
pont n'est pas fermé? 

Dans ce cas l'adresse de sélection de ROM ne sera plus 7 mais O0! S'il n’y 
avait que cela, ce ne serait pas sans grande conséquence. Beaucoup plus 
intéressant est le fait que l'’AMSDOS teste l'adresse de sélection de ROM 
lors de l’initialisation, c'est-à-dire lors d'un Reset ou à la mise sous 
tension, Si une valeur de 0 est trouvée, on essaie automatiquement de 
Charger et de lancer automatiquement CP/M à partir de la disquette. Si 
dans ce cas le programme CP/M ‘AMSDOS.COM' n'est pas disponible, il n'est 
pas possible de travailler avec l'ordinateur sous le Basic Locomotive. 
Tout nouveau Reset ne fait que lancer à nouveau CP/M, Mais même avec le 
programme ‘AMSDOS,COM’, seul le Basic cassette peut être utilisé car les 
modifications de vecteurs nécessaires des routines CAS ne peuvent être 
exécutées dans ce cas, 


Le Second flip-flop que comporte l'’IC 112 est également utilisé. C'est 
avec ce flip-flop que sont commandés les moteurs du lecteur de disquette. 


TI 


L'entrée de données du flip-flop est placée sur le bit de donnée 0, 
L'impulsion CLK pour le flip-flop est obtenue à travers plusieurs portes 
logiques à partir des bits d'adresse A7, A8 et A10 ainsi que des signaux 
IORQ et WN. Les bits d'adresse indiqués doivent étre low pour basculer le 
flip-flop. Cela donne une adresse de port de &FA/7x, dans I'AMSDOS le 
flip-flop est appelé à travers le PORT &FA/E. 


Les portes logiques pour décoder l'adresse de port du flip-flop du moteur 
sont également utilisées pour le décodage des adresses du FDC. Dans ce 
cas cependant, le bit d'adresse A8 doit être high pour générer le signal 
CS. Cela donne l'adresse de port &FB/X. Comme le bit d'adresse AO du 
processeur est utilisé pour la sélection des deux registres du FDC, on 
obtient les adresses de port &FB/E pour le registre d'état principal et 
&FB/F pour le registre de données, 


Un autre branchement intéressant du controller est celui construit avec 
les trois portes logiques IC 105-2, 1C 110-4 et 1C 109-4, Sur l'entrée 
pin 13 de la porte logique AND IC 105-2 se trouve la fréquence d'horloge 
du processeur fournie par le CPC, une fréquence de 4 MHz, Ce circuit 
intégré ne constitue qu’un buffer du signal d'horloge, Sur la sortie pin 
11 de ce buffer est d'une part placée l'entrée pin 4 de la porte logique 
IC 109-4 mais une combinaison de deux résistances, d'un condensateur et 
de la porte logique NAND IC 110-4 est en outre encore branchée sur la 
sortie. La sortie de la porte logique NAND est branchée sur la deuxième 
entrée de la porte logique XOR, pin 5, 

Si l’on examine le diagramme logique d'une porte logique XOR, on voit que 
la sortie d'une tel élément est toujours low si les deux entrées on le 
même niveau, La sortie devient par contre high lorsque les niveaux sont 
différents. 

S'il n'y avait pas dans ce branchement la combinaison RC et la porte 
logique NAND, les deux entrées auraient toujours systératiquement le même 
niveau, la sortie du XOR resterait low. Mais comme le signal d'horloge 
est un peu ralenti par la combinaison RC et la porte logique NAND, il en 
résulte un effet intéressant de ce branchement. La fréquence d'entrée de 
4 MHz est doublée. Sur la sortie du XOR, pin 6, nous obtenons une 
fréquence d'horloge de 8 MHz. 

C'est avec cette fréquence qu'est commandée l'entrée d'horloge du 
séparateur de données qui produit par division de fréquence, à partir de 
ce signal, les deux fréquences d'horloge nécessitées par le FDC, Comme la 
connexion MINI (pin 3 du 9229) est placée sur la masse, la fréquence du 
Signal CLK du FDC (pin 19) est de 4 MHz, le WCK (pin 21 du /65) est de 
500 KHz. 


nl: 


Toutes les autres portes logiques employées dans le controller board font 
Simplement office de buffer des signaux envoyés au lecteur de disquette. 
ll ne reste en fait d’intéressant que la production des deux signaux de 
Sélection de lecteur de disquette, Bien que le FDC dispose de deux 
connexions séparées pour la production du Drive Select (sélection de 
lecteur), une seule connexion est utilisée, Le Signal de sortie du pin 
29, US0O, est utilisé comme signal de sélection pour le lecteur B à 
travers une porte logique NAND branchée comme inverseur et comme Signal 
de sélection pour le lecteur À à travers une autre porte logique 
NAND/inverseur. Suivant la polarité du signal USO, c'est donc le lecteur 
À ou le lecteur B qui est actif, Cette Structure facilite vraiment les 
choses pour les programmeurs de l'AMSDOS, 11 suffit donc de décrémenter 
la valeur de sélection de lecteur pour déterminer quel lecteur doit être 
activé. Si la valeur n'est pas nulle après décrémentation, c'est que 
c'était le lecteur À qui était actif, si la valeur est par contre nulle, 
c'est que c'est le lecteur B qui est actif. 


Dnla2: LE: FDC:765 


Le FDC exploité par les firmes NEC sous le nom de PD 765, ROCKMELL sous 
le nom de R 6/65 et INTEL sous le nom de 8/65, peut étre considéré comme 
un microprocesseur très spécialisé. Les possibilités de ce circuit 
intégré sont si étendues et si complexes que ce qualificatif n’est 
certainement pas exagéré, 


Le format de données utilisé par le FDC correspond au format 1BM 3740 en 
densité simple et au format 1BM System 84 en double densité. De ce fait, 
les disquettes Commodore ou Apple par exemple ne peuvent malheureusement 
pas être lues ni écrites. 

Avec ces 40 pins, il fournit tous les signaux nécessaires pour exploiter 
les lecteurs du marché des tailles 8", 5 1/4" et 3", Les signaux de 
commande disponibles permettent au développeur de connecter ce FDC à 
presque n'importe quel processeur. Deux possibilités fondamentales de 
connexion et d'exploitation sont offertes, La première méthode est 
l'exploitation DMA, En liaison avec un DMA controller, le FDC peut 
prendre en charge le contrôle de la mémoire du Système informatique pour 
le transfert de données en lecture et en écriture. 11 retire alors de la 
mémoire, à l'aide du DMA controller, les nouvelles données nécessitées ou 
écrit dans la mémoire, également en contournant le processeur, Îles 
données lues sur la disquette. Cette très rapide méthode de transfert de 
données n'est cependant pas utilisée sur le CPC et nous ne l'avons 


LI 


évoquée que par souci d'exhaustivité. 


Avec la seconde méthode, celle utilisée sur le CPC, le transfert de 
données est pris en charge par le processeur. Pour cette seconde méthode, 
il faut cependant à nouveau distinguer entre deux possibilités 
d'exploitation du FDC. 

11 y a d’abord la méthode des interruptions. Pour chaque transfert de 
données, une interruption est alors produite. Dans la routine 
d'interruption du processeur doit alors être fourni ou Iu par le 
processeur le prochain octet de donnée ou d'instruction. Du fait de la 
Structure électronique du CPC, il ne pouvait non plus être question de 
cette méthode, de Sorte que Iles développeurs ont choisi la méthode 
polling, Le processeur doit alors examiner régulièrement dans les 
registres du FDC quelle est la prochaine action demandée par le FDC. 


Mais considérons tout d’abord un aperçu des données techniques du 7/65. 
Gardez cependant à l'esprit que les développeurs du controller board 
n'ont pas utilisé toutes les possibilités du 7/65. 


* longueur de secteur programmable 

* toutes les données du lecteur programmables 

* jusqu'à quatre lecteurs connectables 

* transfert de données au choix, en mode DMA où pas en mode DMA 
* connectable à presque tous les types de processeur courants 

* alimentatlon électrique simple 5 volts 

* horloge monophase simple de 4 ou 8 MHz 

* habitacle de 40 pôles du circuit intégré 


Nous allons maintenant nous intéresser un peu plus en détail au dernier 
point de cette brève présentation. 


3.1.2,1 L'AFFECTATION DES CONNEXIONS DU FDC 


Les connexions du FDC 765 peuvent être subdivisées en plusieurs groupes, 
Le premier groupe de connexions représente l'interface avec le processeur 
système. C'est donc à travers ces connexions que le FDC est commandé par 
le processeur. 


Le deuxième groupe n'est nécessaire qu’en liaison avec l'exploitation 


DMA, C’est à travers ces signaux que communiquent le DMA controller et le 
FDC. 


RANCE 


L'interface avec les lecteurs de disquette est constituée par le 
troisième groupe, qui est avec 19 connexions le groupe le plus important 
en nombre, 


Dans le quatrième et dernier groupe peuvent être regroupées les 
connexions pour l'alimentation électrique et l'horloge. 


Commençons l'examen des connexions par le premier groupe, l'interface 
avec le processeur. 


L'interface avec le processeur 

RESET : L'entrée RESET du FDC est active high. En exploitation 
normale, cette connexion est placée sur masse, Un high sur 
le pin RESET place le FDC dans un état déterminé. 


CS" : CHIP SELECT, Un low sur ce pin sélectionne le FDC. Ce 
n'est qu'avec CS* = Ion que RD* et WR* deviennent valables 
pour le FDC, Comme la production du CS est à la libre 
disposition du développeur, le FDC peut être appelé au 
choix Memory-Mapped, donc comme élément de la zone de la 
mémoire, ou à travers des adresses de port. 


RD* : READ*, Cette connexion doit être reliée au signal RD* du 
processeur. Dès que le processeur veut lire des données à 
partir du FDC, ce canal est mis sur Ilon. 


WR* : WRITE*, De même que le canal RD* signale des accès en 
lecture du processeur, un Iow sur WR* indique que le 
processeur écrit des données ou des instructions dans le 
FDC. 


AO : ADRESS LINE 0, Le FDC ne dispose que de deux adresses 
pouvant être appelées de l'extérieur, La distinction entre 
les deux adresses est effectuée avec le signal A0. Ce 
canal est normalement relié au bit d'adresse le plus bas 
du processeur. 
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FLTR/STEP 


HOLD 


RERDY 
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FLT/TRKO 


PS0 


PS1 


DATA 


US 0 


SYNC 


RDATR 


WINDOL 


UICUK 


DBO - DB/ 


INT 


: DATABUS 0-7, Ces connexions du FDC sont reliées au bus de 


données du système, Toutes les instructions et données 
sont transportées à travers ces huit connexions bi- 
directionnelles. La direction des données est chaque fois 
déterminée soit par le processeur, soit par Ile DMA 
controller en mode DMA. 


INTERRUPT, A travers cette connexion, le FDC peut produire 
une interruption du processeur du système. Les 
interruptions sont produites à chaque transfert d'octet 
(non connecté sur le CPC) 


Signaux pour le mode DMA (inutilisé sur le CPC) 


DRQ 


DACK* 


TC 


: DMA REQUEST, A travers cette connexion, le FDC signale au 


DMA controller qu’un accès à la mémoire doit se produire, 
A la prochaine occasion possible, le DMA controller 
prendra en charge le bus système. Le processeur est alors 
déconnecté. 


: DMA ACKNOWLEDGE, Ce signal indique au FDC que le DMA 


controller a pris en charge le bus et a maintenant 
commencé le transfert de données, 


: TERMINAL COUNT,. Un niveau high sur cette connexion 


interrompt le transfert de données vers et à partir du 
FDC, Bien que cette connexion soit essentiellement 
utilisée en mode DMA, le transfert de données peut 
également étre interrompu à travers cette connexion dans 
les systèmes commandés par interruption, 


L'interface disquette 


USO, US1 


HD 


: UNIT SELECT 0/1, A travers ces deux connexions peuvent 


être connectés directement deux lecteurs de disquette, 
mais avec l'aide d'un décodeur deux-à-quatre, ce sont même 
quatre lecteurs qui peuvent être connectés. C'est à 
travers ces connexions qu'est appelé chaque fois le 
lecteur voulu pour l'écriture ou la lecture de données. 


: HEAD SELECT, Comme le FDC est conçu pour l'exploitation de 


lecteurs de disquette à double tête de lecture, la 
sélection de la tête peut s'effectuer à travers cette 
connexion lorsqu'on utilise de tels lecteurs. 


“1227 


HDL 


i DX 


RDY 


WE 


RW/SEEK 


FR/STP 


FLT/TRO 


: HEAD LOAD. Ce signal est employé presque exclusivement sur 


les lecteurs 8”, Les moteurs de ces lecteurs ne sont pas 
mis en marche quand c'est nécessaire, mais ils tournent 
normalement sans arrêt. Mais pour ménager malgré tout la 
disquette et la tête d'écriture, la tête n’est normalement 
‘chargée’, à travers un aimant qui l'amène près de la 
surface de la disquette, que iorsque c'est nécessaire. La 
commande de l’aimant s'effectue alors au moyen de HDL, 


INDEX, Le signal produit par le faisceau lumineux est 
placé sur cette connexion. Il signale au FDC le début 
physique d'une piste, 


: READY, Le Signal READY fourni par le lecteur de disquette 


indique qu’une disquette se trouve dans le lecteur de 
disquette et que celle-ci tourne à une vitesse minimum 
déterminée, Ce n'est qu'après apparition du READY que le 
FDC accède au lecteur de disquette. 


: WRITE ENABLE.,. Cette sortie du FDC doit être high pour que 


des données puissent être écrites sur la disquette, 


: READ WRITE/SEEK. Un lecteur de disquette produit au total 


plus de signaux qu'il n'y en a de disponibles pour 
l'interface disquette sur un socle de 40 pôles, Toutefois, 
tous les signaux ne sont pas nécessaires en même temps à 
tout moment. Huit de ces signaux disquette ont été pour 
cette raison séparés en deux groupes qui peuvent étre 
placés de façon sélective sur quatre connexions du FDC. Le 
FDC sélectionne de lui-même à travers la connexion RW/SEEK 
les signaux dont il a besoin à un moment donné, 


: FIT RESET/STEP, C'est le premier des quatre doubles 


Signaux du FDC, Cette sortie a différentes significations 
suivant l'opération exécutée, D'une part cette connexion 
permet de restaurer le flip-flop d'erreur qui existe sur 
certains lecteurs, La seconde utilisation, beaucoup plus 
courante est la commande de l'entrée des pas du lecteur, A 
chaque déplacement de tête, les impulsions nécessaires 
Sont fournies sur cette connexion, 


: FAULT/TRACKO,. Cette entrée peut elle aussi évaluer deux 
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LCT/DIR 


WP/TS 


WDA 


PSO, 1 


Signaux différents, Si une opération SEEK (voir 
Programmation du FDC) est exécutée, le signal trackO du 
lecteur est attendu sur cette connexion, Ce signal est 
produit par un faisceau lumineux ou par un commutateur 
mécanique, lorsque la tête de lecture/écriture se trouve 
sur la piste physique 0, Le seconde fonction, le signal 
Fault est générée par certains lecteurs en cas d'erreur. 
Elle peut étre à nouveau annulée par le FDC avec le signal 
FR/STP défini plus haut, Ce signal est contrôlé lors 
d'opérations Read/Write du FDC, 


: LOW CURRENT/DIRECTION, Les impulsions de pas de FR/STP 


indiquent bien sOr uniquement que ]la tête doit être 
déplacée, LCT/DIR détermine alors en mode Seek la 
direction du déplacement de Ia tête. La fonction LOW 
CURRENT est nécessaire lors de l'écriture des données. Ce 
signal permet de diminuer le flot d'écriture sur les 
pistes intérieures, Vous trouverez des détails sur ce 
Signal dans la description des bases théoriques de la 
Sauvegarde sur disquette, 


: WRITE  PROTECT/TWO SIDE, Indépendamment des diverses 


méthodes utilisées avec les différentes tailles de 
lecteurs de disquette, l'état de protection contre 
l'écriture est communiqué par le lecteur de disquette au 
controller, sous forme d'un signal, Ce signal est testé 
par l'entrée WP/TS 1ors des opérations de 
lecture/écriture. Le signal TS est testé lors des 
opérations Seek. Il n'est nécessaire qu'en liaison avec 
les lecteurs à double tête de lecture, 


: WRITE DATA, Les données sérielles à écrire sont transmises 


à travers cette connexion au lecteur de disquette. Ce 
peuvent être aussi bien les données pour l'écriture d'un 
secteur que toutes les informations nécessaires lors du 
formatage, 


: PRE SHIFT 0/1. À travers ces connexions, le FDC indique 


pour le format à double densité (MFM) à une électronique 
appropriée comment le flot sériel de données doit être 
écrit sur la disquette. Les trois états possibles sont 
EARLY, NORMAL et LATE pour la précompensation, 


RI25- 


RD 


RDW 


VCO 


MFM 


: READ DATA, Les informations lues sur la disquette sont 


entrées dans le FDC à travers cette entrée, C'est à partir 
de ce flot sériel de bits que les octets écrits à 
l'origine sont reconstitués, 


: READ DATA WINDOW. Ce signal est obtenu dans un séparateur 


de données à partir des données lues, Plus de détails dans 
le chapitre Bases de la sauvegarde sur disquette, 


: VCO SYNC. Ce signal est nécessaire pour la commande du VCO 


dans le séparateur de données PLL. 


* MEM MODE. Cette connexion signale si le controller 


travaille en format simple densité (MF) ou double densité 
(MFM), 


Alimentation électrique et signaux d'horloge 


VCC 


GND 


CLK 


WCK 


: +5 Volts. C'est à travers cette connexion que le FDC 


reçoit son alimentation en courant électrique, La tension 
de 5 Volts doit être constamment dans la zone de +-5 *%, 
L'intensité de courant nécessaire est au maximum de 150 
mA, 


: GROUND, Connexion à la masse du FDC,. 


: CLOCK. Le FDC a besoin d'une fréquence d'horloge. Suivant 


les lecteurs, cette fréquence doit être de 4 MHz (pour les 
D 1/4 et les formats plus petits) ou de 8 MHz (pour les 
D"): 


: WRITE  CLOCK. La fréquence de ce signal doit être 


Sélectionnée en fonction du format de données choisi. Pour 
MF, la fréquence doit étre de 500 kHz, pour MFM, de 1 MHz, 
Cette fréquence détermine la vitesse de transmission des 
données vers et à partir du lecteur de disquette, 
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3,1,2.2 LA PROGRAMMATION DU FDC 765 


Le FDC 7/65 ne dispose vers l'extérieur que de deux adresses ou registres. 
Le niveau du signal A0 détermine quel registre est disponible, Si A0 est 
sur la masse, on peut accéder au registre principal d'état. Ce registre 
principal d'état ne peut être que Iu, Un niveau haut sur AO autorise 
l'accès au registre de données, Le registre de données peut être écrit ou 
Iu, C'est à travers ce registre que le FDC est programmé, que toutes les 
données de lecture/écriture sont transférées et que le données sont 
fournies au processeur dans la phase résultat. 


11 faut distinguer pour les instructions du FDC trois phases 
fondamentales, La première phase est la phase instruction. Dans cette 
phase, tous les paramètres nécessaires pour l'instruction sont transmis 
au FDC, Pour certaines instructions, cela peut représenter jusqu'à 9 
octets. Dès que tous les octets de cette phase ont été communiqués au 
FDC, commence la phase exécution. Cela signifie concrètement que par 
exemple, après une instruction de lecture, les données arrivent 
maintenant de la disquette. Après que la phase exécution soit terminée, 
commence la dernière phase, la phase résultat, Pendant la phase résultat, 
le FDC fournit jusqu'à 7 informations d'état qui doivent toutes être lues 
par le processeur, 

Le schéma indiqué ici ne vaut toutefois pas pour toutes les instructions. 
Pour certaines instructions, il n'y a pas de phase résultat alors que 
d'autres instructions n'ont pas de phase exécution, [I] y a même une 
instruction qui ne dispose d'aucune de ces deux phases et qui se contente 
de la phase instruction, 


Avant que nous n’en venions à traiter les différentes instructions, nous 
allons d’abord jeter un regard sur les informations d'état. 

Le FDC 765 dispose au total de 7 registres d'état, Le registre principal 
d'état occupe une adresse propre (AO=I1ow) comme nous l'avons déjà indiqué 
et il ne peut qu'être Iu. Un accès à ce registre est toutefois possible à 
tout moment, même lors du traitement de l'instruction. 

Les quatre autres registres d'état ne sont accessibles que dans la phase 
résultat de certaines instructions. Le premier octet dans la phase 
résultat de ces instructions indique l'état du registre d'état O (STO). 
Les états de ST1 et ST2 sont fournis ensuite comme octets deux et trois 
dans la phase résultat. L'état de ST3, le dernier registre d'état, ne 
peut être obtenu que sur demande particulière, avec une instruction 
spéciale dont la seule fonction est de fournir l’état de ST3, Nous 
étudierons un peu plus tard la signification des registres d'état. 


no à Ds 


Le FDC 765 dispose au total de 15 instructions différentes, Ce simple 
nombre montre déjà clairement que ce controiler maîtrise plus de choses 
que la simple lecture/écriture, Nous allons maintenant examiner en détail 
quelles possibilités il offre. Si certaines notions non expliquées dans 
ce chapitre, telles que par exemple ID de Secteur, Gap ou Data Adress 
Mark ne vous disent rien, vous pouvez vous reporter pour ces notions au 
chapitre sur l'écriture physique des données, 


LIRE LES DONNEES 

Avant que le FDC puisse lire des données à partir de la disquette, 9 
octets doivent Iui être transmis dans la phase instruction, Après 
indication de toutes les données, le signal Head Load est activé et on 
attend le Head Load Time programmé. Le FDC lit ensuite les ID de secteur 
jusqu'à ce qu'il rencontre ]l’1D du secteur indiqué ou jusqu'à ce que 
l'impulsion de l'index apparaisse pour la deuxième fois depuis le début 
de la recherche. Dans le premier cas il commence la phase exécution, dans 
le second cas il met fin à l'instruction et la phase résultat commence, 


Dès qu'il a identifié le secteur, il commence la phase exécution. Dans la 
phase exécution, les données sont lues sur la disquette et fournies au 
processeur à travers le bus de données. Les délais correspondants sont 
très courts. Environ toutes les 26 microsecondes un octet est disponible 
et doit être Iu par le processeur, 


Après transmission du dernier octet du Secteur voulu, une impulsion 
TERMINAL COUNT (TC, pin 16) doit être placée sur le FDC pour déclencher 
la phase résultat. En effet, en l'absence d'une impulsion TC, ce qu'on 
appelle un Multi Sector Read sera exécuté. 

Multi Sector Read signifie que le controller lit des données jusqu'à ce 
qu'il ait lu le dernier Secteur de la piste. On peut par ailleurs 
renoncer à l'impulsion TC sous certaines conditions. Dans la phase 
instruction de ‘lire secteur’ et de quelques autres instructions, ce 
n'est pas seulement le secteur voulu qui doit être indiqué mais aussi le 
dernier secteur de la piste. Si alors les deux valeurs sont identiques, 
le FDC interrompt automatiquement la lecture à la fin du secteur voulu et 
commence la phase résultat, 


se ns 


On ne un ue mnt un ue mu mu 


INSTRUCTION 


EXECUTION 


RESULTAT 


MF 


SK 


um ue cut te ne dun ue Ge due me ce de mnt fe (ge me nt Me mx ue (ue mue ue dos me (de le mx De de me jm de ue une cute ue lune sue ue ne ue dun du fe ue dun cu ue ue tt Ou (ee me Mu due nt ut me mt 


me ue ue ju ce ce ue un te ee me mue fée lim mue coté de ue ne de une ue fe ue ft dm une dou lue ue us die ue une du lue sn due ue un mue de nt cute de ue fe de ue cu du me me de lue cute de me du 


W MT MF SK O O0 1 L O0 Codes d'instruction 
W XX XX  X HD US1 USO 


ES Numéro de piste----------- Information ID secteur 

WW —---—- Adresse de tête----------- avant exécution de 

Woo ----- Adresse de secteur-------- l'instruction 

NW —---- Taille du secteur--------- 

W --Dernier No Secteur sur piste- 

W ---Vide entre ID et données---- 

W Longueur secteur si taille 

secteur = 0 

Transfert de données 
entre  FDD et le 
système 

Ras Etat O------------ Information d'état 

D ne Etat 1-------------- après exécution de 

“ons Etat 2--------------- l'instruction 

AS Numéro de piste----------- Information ID secteur 

R Adresse de tête----------- après exécution de 

R  ----- Numéro de secteur--------- l'instruction 

Ronnie 1OLTLE QU SeCLEUT rer 


nm ue pour dun vue ue fe ue ue (ue lue ue jun du due A us june (NN mue mue jt dun lune de Que nue outt dus ue ut ee une mue dus ue ét mn mue ut une une dut un une Gt mue une ét uw une M mn une Mie nm une de me da 


Bit Multitrack: lorsqu'il est mis, la fonction est 
poursuivie sur la seconde face de la disquette pour les 
fonctions multi-secteur; disponible uniquement sur les 
lecteurs à double tête, dans l'’AMSDOS toujours 0. 


Bit Mode MFM: lorsqu'il est mis, le FDC travaille en double 
densité, dans 1'AMSDOS toujours 1. 


Bit SKip: lorsqu'il est mis, les secteurs effacés (deleted 


DAM) sont sautés. Inutilisable sous AMSDOS et CP/M. Toujours 
0. 
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HD Bit HeaD select: avec les lecteurs à double tête, la 
sélection de la face est faite à travers ce bit. Dans 
l'AMSDOS, toujours 0. 


US 0,1 Unit Select: les lecteurs sont sélectionnés à travers ces 
bits. Sous AMSDOS, O pour lecteur A, 1 pour lecteur B. 


R Read = lire 


W Write = écrire 


Les noms et abréviations donnés ici valent également pour toutes les 
présentations d'instruction suivantes. 


Dans la phase résultat, 7 octets sont fournis par le FDC au processeur. 
Le processeur doit retirer, c'est-à-dire lire ces octets le plus vite 
possible, Le FDC n'accepte aucune nouvelle instruction avant que le 
dernier octet de la phase résultat n'ait été lu, 


Les trois premiers octets fournis sont les états des registre d'état O0 à 
2, Avec ces trois registres, le programmeur dispose de toutes les données 
nécessaires sur le succès ou l'échec de l'instruction, 

Ensuite Sont fournis le numéro de piste actuel, l'adresse de tête 
(importante pour les lecteurs à double tête), le numéro de secteur et la 
taille du secteur, Ce n'est qu'après cela qu’une nouvelle instruction 
peut être exécutée, 


ECRIRE DONNEES 

Comme pour la lecture, lors de l'écriture de secteurs, 9 octets sont 
nécessaires. Après que tous les octets aient été transmis au FDC, celui- 
ci commence (après écoulement du Head Load Time) la recherche du secteur 
voulu, Il lit à cet effet les IDs de secteur jusqu'à ce qu'il ait 
identifié le secteur voulu ou jusqu'à ce que l'impulsion d'index ne 
survienne pour la deuxième fois depuis le début de la recherche. Dans ce 
dernier cas, l'instruction est interrompue et la phase résultat commence 
immédiatement. 

Si cependant le secteur voulu est rencontré, le FDC demande maintenant au 
processeur les données à écrire (pas en exploitation DMA)., Après que 
toutes Iles données aient été écrites, la phase résultat commence. Elle ne 


50: 


se distingue pas de celle de l’instruction Lire données. 


On mue ue ue mue un ue nue mu ue dons uw ue dut une fus un ue de us mu dus due uw uw uw Que cum uw me ut fun us ue dun un mue sue un une ee mu due ut mu ue Ge ue une ue ue Ou ue tt du ue ue due A ue ue une en de ue ee me de de 
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INSTRUCTION HW MT MF O0 0 O0 1 O0 1 Codes d'instruction 
W XX XX X HD UST USO 


Woo ----- Numéro de piste----------- Information ID secteur 
W_  ----- Adresse de tête----------- avant exécution de 
Ne 7. Adresse de secteur-------- [l'instruction 
NW ----- Taille du secteur--------- 
W --Dernier No secteur sur piste- 
W ---Vide entre ID et données---- 
W Longueur secteur si taille 
secteur = 0 
EXECUTION Transfert de données 
entre  FDD et Ie 
système 
RESULTAT R ="... Etat O---------…— Information d'état 
R ---------- Etat == ressens après exécution de 
R ---------- Etat 2---------—---—- l'instruction 
R ----- Numéro de piste----------- Information ID secteur 
R  ----- Adresse de tête----------- après exécution de 
R > Numéro de secteur--------- l'instruction 
R ----- Taille du sSecteur--------- 


ou nu un gun mu mu me on M us mue dun ue mue un tt nt Du ue mu Ou ue uw mu lee ut une due ft Me une mue ue ut un un ue (AN une nue ou ft dut ue ue Mens CE une due uËt A Me nue ue Auf CN nue ue Ge A ue due Mt ut ue ue de Ce ue ent A 


LIRE DONNEES EFFACEES 

Le nom de cette instruction est curieux. Il ne faut pas comprendre ici 
par données supprimées les données d'un fichier supprimé, Quelle que soit 
l'intelligence du FDC, celui-ci n'a aucune idée de ce que sont les 
fichiers et les catalogues. Le terme ‘effacées’ se rapporte bien plutôt à 
Ia possibilité de marquer des secteurs comme effacés en entrant une Data 
Adress Mark, De tels secteurs sont alors ignorés en Iecture et écriture 


A | 


normales. La lecture de données effacées s'effectue pour le reste comme 


la lecture de données normales, 


— mo mu mu un we un un un nu us mu me pe me ue uw uw uw mu ue mm mt de qe ee mue ue mu ou ut un ue de tee mue ét ue mme ee mue ou ue ue mu om om 


— ue ur ue un un ntm due of ous mn ue mu mn une ue un me Ut Gun ue me mu mue uns mes On me net 


— ne ue qu Ce ce ce Ce Ce de de de de ut ue ce ue ue lue Me dt dut Que mt ou ue ue ut Mt ut ue he tee mnt ee ue Ce Mt de mue que ue ue ue Ou ue M de ne die 


INSTRUCTION PU SES SK D TE ANUS CU 


W XX XX  X HD US1 USO 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 
secteur = 0 

EXECUTION 


RESULTAT 


— — ce ce us dt Mt du our ut ur ue ut ut Mt ut dde ut qu ue mu Mt ut ut ut ut un pu Made ns mu Mt Out Mu Me un un ut gt ue At me œufte ue mm mme ue ue 


ECRIRE DONNEES EFFACEES 


— 0 ue ee ee eos ue ue mu ut Mt M me me mue ou mue me mu 


— = ue ue du ds me ue un que ee ee ue OM ut ue de Œe mue me me 


— oo mn on qe qui ou ue mu us ut ut Mt Méte méme mue mue ou ou ms ds 


Codes d'instruction 


Information ID secteur 
avant exécution de 
l'instruction 


Transfert de données 
entre  FDD et le 
système 

Information d'état 
après exécution de 
l'instruction 
Information [ID secteur 
après exécution de 
l'instruction 


— om un due ue GE cu ue ue us ue ue un un un ut du Gt qu mu ue mur 


Cette instruction ne diffère pas fondamentalement de l'écriture normale 
de données. La seule exception est le traitement spécial de la Data 
Adress Mark. Ici en effet, une Data Adress Mark effacée est entrée. 


cn 
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on eu que co fe que cote Ce Ce Ce Ce ue ue Me de de ue ue soft dome ue ue me ue ut (ut née un me ue ue ft un ue nue du mé die un ue ue due me fe um une fe tt Me ue um ue ue ne du une ne ee de pe ne mu ue ee ne ue mm mue ue ue dde 


INSTRUCTION MT MF O0 O0 1] 0 O0 1] Codes d'’instruction 
W XX XX  X HD US1 USO 


_____ Numéro de piste----------- Information ID secteur 
D ss Adresse de tête----------- avant exécution de 
Woo ----- Adresse de secteur-------- l'instruction 
W —---- Taille du secteur--------- 
W --Dernier No secteur sur piste- 
W ---Vide entre ID et données---- 
W Longueur secteur si taille 
secteur = 0 
EXECUTION Transfert de données 
entre  FDD et le 
système 
RESULTAT KR = Etat O--------"………— Information d'état 
D sis Etat 1--------------- après exécution de 
D. sise Etat 2--------------- l'instruction 
se Numéro de piste----------- Information ID secteur 
Re. ss Adresse de tête----------- après exécution de 
R ----- Numéro de secteur--------- l'instruction 
RuMnrr 1aLLIe OÙ SeEtEUP re 


— ee ue cou ce dore ft Ge Ce de de de come fe de de due cute de (te de due due mue dt ét ln dun due ue couté de ue dun ue ft dde Ce nue ce un M fu ue ue mue ue M ue ue ue At tt (ut de ue ue Gt ie ut une nue ue Gt Me une une ue A M un due me 


LECTURE D'UNE PISTE 

Cette instruction est comparable à la lecture d'un secteur, Toutefois 
avec cette instruction, tous les octets de données de la piste sont Ius. 
Cette instruction se termine soit si le secteur indiqué comme dernier 
secteur à été Iu, soit si un tel secteur n'a pas été rencontré, si 
l'orifice d'’index produit une seconde impulsion après le début de 
l'instruction, 


tre 
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— eu mn ut de te At me fée que Cu ut que ee fe mt Ge Ge RU que ee ue un un ue me nn mu ue né ue une mu du mn ut un ue une ue on ne ut ee ue Ou ue une ue ue ue Ge ee ue Ge mue ue AN me Aie ee Que OR Ce ue ee mn 


INSTRUCTION 


EXECUTION 


RESULTAT 


EE = EE = = 


O MF SK O0 O0 O0 1] O0 Codes d'instruction 
XX XX  X HD US1 USO 


re Numéro de piste----------- Information ID secteur 
ES Adresse de tête----------- avant exécution de 
----- Adresse de secteur-------- |'instruction 


--Dernier No secteur sur piste- 
---Vide entre ID et données---- 
Longueur secteur si taille 


secteur = 0 
Transfert de données 
entre FDD et le 
système, Le FDC lIit 
tout ce qui se trouve 
Sur Ia piste entre 
l'orifice d'index et 
EOT 

mm Etat O--------------- Information d'état 

= Etat 1-----------.— 9près exécution de 

Semen ETAT. 2rrmensensssssss) | ENSTUC TION 

ss Numéro de piste----------- Information ID secteur 

——— Adresse de tête----------- gprès exécution de 

sm Numéro de secteur--------- J'instruction 


cn us un un ut due on de us ous de ue fe cu ue un mue ue ms ue ut ut ue ut Out Ou Ou ut ue Ou ut us un ut us mu us us un uns nu nu mu uw ut Ou Ou ut nu mnt ut d ut us ut uw nu ut us ut ut Du ue ue ue Ge ms du a 
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FORMATAGE D'UNE PISTE 

Le formatage d'une piste est très simple avec le 765. Une chaîne de 6 
octets est à cet effet transmise au FDC dans Ia phase instruction. 
Lorsque, après la transmission complète des 6 octets, le FDC reconnaît à 
l'impulsion d'index le début physique de la piste, il commence 
automatiquement à formater la piste avec tous les Adress Marks, Gaps et 
IDS nécessaires, 

L'octet numéro 4 de la chaîne d'instruction indique combien de secteurs 
doivent être disposés sur la piste, Pour chaque secteur, le FDC demande 
quatre autres octets, Un de ces octets est le numéro de secteur qui est 
inscrit dans I’ID secteur. 11 est ainsi possible de formater [es secteurs 
dans des ordres différents. Cela permet, par un choix judicieux de 
l'ordre, d'accélérer nettement les accès ultérieurs en lecture. 


Oo num mu pau mon un mue nue un nu ue me ut nus mn we ds ut D us une mu mue ous ue mt dut Mu nn cu sw we nn we me mt ut nn nn nn ou ue de os ue ét RUN ue ue out nn de ue Ge de Gt due dt due ee mt tt dt M Mt Dune one me te et 4 
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[INSTRUCTION O MF O0 O0 17 1 O0 1 Codes d'instruction 
W XX XX  X HD UST USO 


Ne ss Taille du secteur--------- Octets par secteur 

W_ ----- Secteurs par piste-------- Secteurs par piste 

W ---Vide entre ID et données---- Vide #3 

W --Modèle données pour secteur-- Octet de remplissage 
EXECUT ION Le FDC formate une 

piste entière. 

RESULTAT R  ---------- Etat O----mmmemmeme Information d'état 

CPE Etat 1--------------- après exécution de 

ho spesies Etat 2--------------- l'instruction 

R ----- Numéro de piste----------- Dans ce cas, 

R_ Adresse de tête----------- l'information ID n’a 

R  ----- Numéro de secteur--------- pas de signification 

On faille QuSeCtenr----5 


— en ue ue qe due ce Ce qe ue Ge ue de ue ue te M Gide M due (ue ue ue (ue ue un que dt ut me ŒN Me Mu de ue ne ue ne ut de M ue eue ue eue du uns bn M une ue ue ft mue NN GUN ue nu me mm ne diet CN D ue ee due és do ne ie 


DES 


LIRE ID 

Cette instruction permet, après avoir fourni deux octets dans la phase 
instruction, de lire sur la disquette la prochaine ID possible. Chaque 
secteur a reçu sa propre ID lors du formatage. Cette ID contient les 
valeurs de numéro de secteur, de piste, de face de disquette et de taille 
de secteurl.a iCBEe 


résultat finale en même temps que les états des registres d'état STO à 
SEL: 
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INSTRUCTION W O MF 0 0 17 O0 1  O Codes d'instruction 
W XX XX X HD UST USO 


EXECUTION Sauvegarder l 4 
première information 
ID correcte dans Îles 
registres de données, 


RESULTAT R Etat O-------------- Information d'état 
D nas Etat 1--------------- après exécution de 
D Hs Etat 2--------------- l'instruction 
R ----- Numéro de piste----------- Dans ce cas, 
D Adresse de tête----------- l'information 1D n'a 
R ----- Numéro de secteur--------- pas de signification 
AR Tallie-Qu'SeCteUr--erre 
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LES INSTRUCTIONS SCAN, TEST D'UN SECTEUR 

Ces instructions reviennent par leurs effets à un verify, c'est-à-dire à 
une vérification de l'identité entre les données écrites et les données à 
écrire, Les conditions de test possibles sont ‘égal’, ‘supérieur ou égal’ 
et ‘inférieur ou égal’. Après que 9 octets aient été transmis dans la 
phase instruction, des données sont lues par le FDC sur le secteur 
sélectionné. En même temps, le FDC demande des données au processeur. 
Chaque octet de la disquette est comparé à un octet venant du processeur, 
suivant les conditions de test indiquées, Cette instruction se termine 
Soit lorsque la condition de test est remplie dans le secteur indiqué, 
soit lorsque le dernier secteur de la piste a été testé ou lorsqu'une 
impulsion TC à été placée sur le pin 16. 
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INSTRUCTION HW MT MF SK 1 DD Ur À Codes d'instruction 
Wl X. OX À XX XX: HD: !UST: US0 


M ES Numéro de piste----------- Information ID secteur 

W ----- Adresse de tête----------- avant exécution de 

We = Adresse de secteur-------- l'instruction 

Nu FoNe Taille du secteur--------- 

W --Dernier No secteur sur piste- 

W ---Vide entre ID et données---- 

W Longueur secteur si taille 

secteur = 0 
EXECUTION Comparaison de données 
entre FDD et système 

RESULTAT Nr Essais Etat, Orsm-mammnasas dim Information d'état 

Ps FAST SENS ETAT denses après exécution de 

R === ETAT 2m l'instruction 

RME Numéro de piste----------- Information 1D secteur 

OR Adresse de tête----------- après exécution de 

R esse Numéro de Secteur--------- l'instruction 

R ----- Tatilé OÙ Secteur------- 


ir 
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INSTRUCTION 


EXECUTION 


RESULTAT 


EEE EE = 


MT MF SK 1 L 0 0 71 Codes d'instruction 
XX XX  X HD US1 USO 


Fans Numéro de piste----------- Information ID secteur 
“ss—— Adresse de tête----------- avant exécution de 
+ Adresse de secteur-------- ]’instruction 

se Faille du”Secteur---<-- 


--Dernier No secteur sur piste- 

---Vide entre 1D et données---- 

Longueur secteur si taille 

secteur = 0 
Comparaison de données 
entre FDD et le 


système 
Se mn em Etat O------------ Information d'état 
mm Etat 1--------------- après exécution de 
D ce ETAT 2=-----ssemsmse |" Instruction 
rs Numéro de piste----------- Information ID secteur 
nr Adresse de tête----------- après exécution de 
russe Numéro de secteur--------- ]'jinstruction 


— en qe ce de ue ce Ce te due Ce de que de Cu dt que de Mt diye eue ue ut ue une ut dt du ue ue Me de ue e de ee mue ue dun et ue du une un un (ue ut uw uw um ue te sue ut ie mule ue ue MN mue uw dut ne «me due tee mt qe june 


nl 2 


— mu ue met M mue me ue ee me Qt du un mue mue mue ee nt dut nu te un un ne mue ue mue me ue fee ouf ue A ut um num mue um mue mme ue UN M A ue ee ee qe mn Ce ue ue ut ue Ou ee ee me que RO ue ue ue ue de de Me ue mme 


PHASE R/W  D7 D6 D5 D4 D3 D2 D1 DO 


— un mn un um um un mu un mu mue né qe né te un num mu mu» mue mu ous CN ut un uw um mm ue ue ue mé C0 bé un un ue mu ue me Qu un né Ou ue nue ue ue mue ot me mn mue ue ee us tt qe GUN ue mue mue mue ue ut ue de dde ue me me 


— = un mue ue un ur ee due pe ue ue de mme me ue ue mue ue ue ue due ue ft du de ee mt mu mu um me ue ue due mens dt ne um mm um mu ue ue ue ét de ut ue um ue men ue ee mue ee Out Ge ue ue me me me mn ft de dt dt Me une me me 


INSTRUCTION NW MT MF SK 1 1 L 0 7] Codes d'instruction 
W XX XX  X HD US1 USO 


— Numéro de piste----------- Information ID secteur 
We “és Adresse de tête----------- avant exécution de 
No "rot Adresse de secteur-------- l'instruction 
W. => Taille du secteur--------- 
W --Dernier No secteur sur piste- 
W ---Vide entre ID et données---- 
W Longueur secteur si taille 
secteur = 0 
EXECUTION Comparaison de données 
entre FDD et 1e 
système 
RESULTAT R Etat 0----------- Information d'état 
Du Nr HS cecone Etat 1-------------- après exécution de 
Ron ne Etat 2--------------- l'instruction | 
É:. N “ss Numéro de piste----------- Information ID secteur 
D Adresse de tête----------- après exécution de 
R ----- Numéro de secteur--------- l'instruction 
MURS FatLié-OÙu Secteurs 
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RECALIBRER, CHERCHER PISTE ZERO 

Avec cette instruction, la tête du lecteur sélectionné est déplacée vers 
la piste zéro, soit Jusqu'à ce que l'impulsion Track0 du lecteur signale 
au FDC que cette piste a été atteinte, soit Jusqu'à ce que le FDC ait 
fourni 77 impulsions de pas, Les registres d'état permettent de 
déterminer comment cette instruction s'est achevée. 
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INSTRUCTION H 0 0 0 0 0 1 1 1 Codes d'instruction 
W XX XX _X HD US1 USO 


EXECUTION Replacer tête sur 
piste 0 
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L'INSTRUCTION SEEK, RECHERCHE D'UNE PISTE 

Les lecteurs de disquette déplacent la tête de lecture/écriture avec ce 
qu'on appelle des moteurs de pas, Ces moteurs ne sont pas sans cesse en 
mouvement mais sont déplacés par des impulsions selon des changements 
d'angle bien définis par rapport à l'axe, Ces impulsions sont en règle 
générale produites dans les lecteurs de disquette eux-mêmes par des 
branchements digitaux parfois très onéreux, Un lecteur de disquette 
dispose de deux connexions vers l'extérieur, Sur une connexion sont 
placées des impulsions qui commandent le moteur de pas de façon à ce que 
la tête soit déplacée exactement d’une piste chaque fois qu'une impulsion 
se produit. La deuxième entrée sur les lecteurs détermine la direction de 
ce déplacement. 

Ce déplacement de la tête est commandé par l'instruction Seek, Le FDC 
dispose en tout de quatre registres internes dans lesquels il stocke la 
position de tête actuelle des quatre lecteurs possibles, Ces registres 
sont sur zéro, ils sont donc annulés après l'instruction Recalibrate., Si 
une instruction Seek est envoyée à un lecteur déterminé, le contenu du 
registre de position correspondant est comparé à la valeur demandée. Si 
les deux valeurs sont identiques, aucune autre action n'est nécessaire, 


40e 


Si cependant une différence entre ces deux valeurs est constatée, la 
polarité du signal DIR sur le pin 38 Sera modifiée en fonction de la 
direction nécessaire et des impulsions de pas seront produites sur le pin 
37, Le délai entre Ies impulsions de pas est programmable dans des 
limites assez larges avec l'instruction ‘Indiquer jiecteurs'. 


Pour cette instruction et pour l’instruction Recalibrate, il n'y a pas de 
phase résultat. Il est recommandé que Ile programmeur entre toujours 
l'instruction ‘lire état d'interruption’ après une instruction Seek afin 
de terminer correctement l'instruction. Cette instruction fournit l'état 
du STO, aussi appelé état d'interruption, dans la phase résultat. Sans 
cette instruction, Ie  FDC n'accepte plus d'instructions de 
lecture/écriture, 


— ne ue que eu ue mt vu cs cut dt mme mue qu Mt mue us ft un mue tt nu uns ms mms ue me ve y ue ee mottt dm mme uw ut nt mu tt du un sue M Ou une D nn ue ue Gt ne dues ue du une ee dt Out ue eee du un mue dt nu ue de ON nu de ce 


— mue qu gun ue ue ct Met ue un ue ue due mue us cute dun dune ue Mt ue un ut ue eue mu tt un mue ue du due mue ue M0 mue nee ms M une mu ue ut me due aus du we ut eue ut nue Mint nu us mue un nue nue oups nu nu ou nu ou we Qu onu ous pe dt me 


nee ue us ue ue que le du de mme ms M ue mont onde due nu mn M ue se us du mue mme de dun me mue mnt ut ue mnt dun uw uw su dt mue me que de ue out die dt mue NN dut nue mue die due num me lue ee ue dt Eu du tt du une ue Que une due mue 


INSTRUCTION HW 0 0 0 0 0 1 1 1 Codes d'instruction 
W XX XX  X HD UST USO 


E XECUTION La tête est placée sur 
le piste recherchée de 
la disquette 


mon que us ue due ét un ut ue ue Me ue ue ue ue ue ue nue ut ue mue ét un ue us ee du ue ue du ut ue de ét Ou ue ut eee fut une mu Gt nu un ee GS une de uw ue une ue mu du dune mue us due onu mu WU Du dune ue dun dut nue out 


SENSE INTERRUPT STATUS, INTERROGER REGISTRE D'ETAT O 
Des interruptions sont produites par le FDC en exploitation NON DMA lors 
des évènements suivants: 


pendant la phase exécution, 

au début de la phase résultat, 

à la fin d’un Seek ou d'un Recalibrate, 

lors de la modification du signal Ready d'un lecteur 
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Si les deux premières causes d'interruption peuvent être aisément 
reconnues par le processeur, pour les deux autres causes d'interruption 
suivantes l’instruction ‘Sense Interrupt Status’ doit par contre être 
exécutée pour déterminer la cause de l'interruption, Les bits de la 
valeur du STO permettent de déterminer aisément la source d'interruption. 
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INSTRUCTION WW 0 0 0 0 0 0 O0 O0 Codes d'instruction 


RESULTAT R Etat O-------——_——- Information d'état à 
la fin de l'opération 
de recherche à travers 
FDC 

R Numéro de piste après 
instruction de recherche 
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SENSE DRIVE STATUS, INTERROGER ETAT LECTEUR 

Cette instruction constitue la seule possibilité de déterminer le contenu 
du registre d'état ST3, Ce registre indique l'état du lecteur 
Sélectionné. Il peut être Iu à tout moment avec cette instruction. 
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INSTRUCTION HW 0 0 0 0 © 1 0 O0 Codes d'instruction 
W Ne À OX OX °X HD: UST: USO 


RESULTAT R ---—-------- Etat 35------------ Information d'état à 
travers FDD 
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L'INSTRUCTION SPECIFY, INDIQUER DONNEES LECTEUR 

Bien que cette instruction soit placée à la fin de notre brève 
présentation des instructions du FDC, c'est la première instruction qu'il 
faut utiliser après un Reset ou après la mise sous tension du FDC, A 
l'aide de cette instruction, les Iecteurs les plus divers peuvent être 
adaptés au FDC, Tous les délais nécessaires sont indiqués au FDC avec 
cette instruction sur 3 octets, Outre les délais d'attente, un bit décide 
Si le FDC doit travailler en mode DMA ou en mode d'interruption. 


Mais examinons les données du lecteur de disquette, Il y a d'abord ce 
qu'on appelle le Step Rate Time. Le FDC attend automatiquement 
l'écoulement de ce délai entre les différentes impulsions de pas, Comme 
les différents lecteurs fabriqués attendent des délais d'attente entre 
deux impulsions complètement différents, ce délai peut être adapté 
précisément aux valeurs nécessaires. 

Le deuxième délai qui peut être fixé est le délai d'attente dont le FDC 
attend automatiquement l'écoulement après activation du signal Head Load. 
Ce délai d'attente appelé Head Load Time n'a de sens que pour les 
lecteurs 8", sur les plus petits lecteurs, la tête est presque toujours 
chargée avec le signal Motor On. 

Le troisième délai pouvant être fixé est le Head Unload Time, Ce délai 
programmable est celui qui doit s'’écouler, après un accès à la disquette, 
avant que le signal Head Load du FDC ne redevienne inactif. Ce délai 
également n'a de sens que sur les lecteurs de disquette qui effectuent 
réellement la commande de la tête à travers la connexion du FDC que nous 
avons indiquée. 
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INSTRUCTION W 


W 


--Step rate--> <élever tête--- 


---Charger tête --> pas DMA--- 


Code d'instruction 


Information d'état à 
la fin de l'opération 
de recherche à travers 
FDC 
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1 = Mode DMA 
0 = Mode Non DMA 


1e 


3.1.2.3 LES REGISTRES D'ETAT DU FDC 765 


Comme nous l'avons déjà indiqué, le 765 dispose de 5 registres d'état 
internes. Le registre d'état principal peut être Iu à tout moment. Le 
contenu des registres d'état 0 à 2 est fourni à la fin des instructions 
de lecture et d'écriture, Il n'est pas possible d'accéder de façon 
sélective aux registres 1 et 2, Seul le contenu des registres 0 et 3 peut 
etre Iu de façon sélective grâce aux instructions particulières 
correspondantes, 


Les noms et abréviations spéciaux utilisés dans la description suivante 
sont tirés de la fiche technique NEC du 765, Malheureusement, même chez 
NEC, ces termes n'ont pas toujours été employés de façon systématique. 
C'est ainsi que le compte rendu d'application du 765 utilise parfois 
d'autres noms et abréviations que la fiche technique, 


Avant que nous n'examinions maintenant le registre d'état en détail, nous 
allons encore expliquer brièvement une des notions utilisées, Le terme 
Cylinder ne signifie rien d'autre que track ou piste. Nous ne nous 
expliquons pas pour quelle raison les deux termes track et cylinder 
apparaissent parallèlement dans les fiches techniques, Nous avons essayé 
d'éviter autant que possible d'utiliser le terme cylinder. À certains 
endroits toutefois les abréviations utilisées n'auraient plus alors de 
sens, Dans ce cas, nous avons conservé la notion de cylinder. 


LE REGISTRE D'ETAT PRINCIPAL 

Dans ce registre sont représentées les principales données sur l'état 
actuel du FDC, C'est aussi avec ce registre qu'est réglé le hand shaking 
entre processeur et FDC. Les huit bits de ce registre indiquent les 
données et états suivants: 


Bit 7 ROM . ReQuest for Master 
Si ce bit est mis, le FDC est prêt à lire ou à envoyer un 
nouvel octet à travers le registre de données, Si par 
contre le ROM est à zéro, aucun transfert de données ne 
peut se faire pour le moment. 


Bit 6 DIO . Data Input/Output 
Si ROM indique qu’un transfert de données est possible, 
DIO signale la direction de données nécessaire, Un DI0 mis 
signifie que Ile FDC a un octet de données pour le 
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processeur, un DIO annulé indique que le FDC attend un 
octet du processeur. 


Bit 5 EXM : EXecution Mode 

Ce bit n’est utilisé qu’en mode Non DMA, En exploitation 
DMA, ce bit est systématiquement annulé. En mode Non DMA, 
le bit EXM est mis lorsque la phase exécution à commencé. 
Au début de la phase résultat, EXM est à nouveau annulé, 
Ce bit permet donc de déterminer si les valeurs fournies 
sont des informations de secteur ou s’il s'agit des octets 
de la phase résultat. 


Bit 4 CB : FDC Busy 

Le bit CB mis signale que le FDC est en train de traiter 
une instruction de lecture ou d'écriture et qu'il ne peut 
recevoir d'autres instructions. À la réception du premier 
octet d'une chaîne d'instruction, ce bit est mis et il le 
reste Jusqu'à ce qu'ait été Iu le dernier octet de la 
phase résultat. Ce bit est ensuite automatiquement remis à 
zéro, 


Bits 3-0 DB : FDD3-0 Busy 

Ces quatre bits sont affectés aux quatre lecteurs 
possibles, Si une instruction Seek ou Recalibrate est 
lancée sur un de ces lecteurs, le bit correspondant du 
registre d'état principal sera mis, Dès qu'un de ces bits 
est mis, aucune instruction de lecture ou écriture ne peut 
être envoyée au FDC, D’autres instructions Seek ou 
Recalibrate restent cependant possibles pour les autres 
lecteurs de disquette, Le bit correspondant est alors mis 
pour chaque instruction supplémentaire, 

Ces bits ne sont pas annulés automatiquement à la fin de 
l'instruction, Pour remettre à nouveau ces bits sur O0, 
l'instruction ‘lire état d'interruption’ doit étre envoyée 
au FDC, Cette instruction efface les bits si l'instruction 
correspondante s'était déjà terminée. 


LE REGISTRE D'ETAT O0 


Le registre d'état 0 est également appelé registre d'état d'interruption 
car il indique en exploitation Non DMA la cause d'une interruption. 
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Bits 7,610 


Bit 5 SE 


: Interrupt Code 


Dans ces deux bits, le FDC fournit des indications sur le 
déroulement d’une instruction. Les deux bits donnent 
quatre possibilités: 


0 O0 Instruction terminée avec succès. C’est évidemment ce 
message que vous devez toujours souhaiter obtenir car 
il indique qu’un accès en lecture par exemple a 
réussi, Mais attention! 

0 T Instruction interrompue. Dans ce cas, l'instruction a 
bien été lancée mais elle ne s'est pas terminée avec 
succès, Ce message peut survenir par exemple pour des 
erreurs de lecture sur Îla disquette mais il est 
également envoyé sur le CPC après chaque lecture ou 
écriture d'un secteur, La raison en est le fait de 
renoncer au signal IC et la programmation ainsi 
rendue nécessaire du dernier secteur de piste de 
façon identique au secteur à lire, Lorsque survient 
cette combinaison, il n'y a donc pas absolument à 
considérer qu’une véritable erreur s’est produite. 

1 O0 Instruction non valable. L'instruction que vous avez 

indiquée n'a pu être lancée parce qu'il s’agit d'une 
instruction illégale, 
Vous obtenez également ce message lorsque vous avez 
envoyé l'instruction ‘Sense Interrupt Status’ mais 
qu'il n'y a encore pour le moment aucune 
interruption, 

1 1 Instruction interrompue. La cause de ce message est 
une modification du Signal Ready du lecteur 
Sélectionné, pendant une instruction. L'’instruction a 
alors bien été commencée mais elle n'a pu être 
entièrement terminée. Vous obtenez par exemple ce 
message lorsque vous retirez la disquette du lecteur 
pendant un accès en lecture, 


: Seek End 


Dès qu'une instruction à été terminée, le FDC met ce bit 
sur 1: 
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Bit: EC . Equipment Check 

Ce bit d'état indique d'une part si le lecteur de 
disquette annonce une erreur, En cas d'erreur, le bit EC 
est mis. La seconde cause pour un bit EC mis peut être 
l'absence du signal TRKO après un Recalibrate, Avec 
Recalibrate en effet, la tête est déplacée vers la piste 
0, Soit jusqu'à ce que le Sensor de piste O0 envoie un 
message au FDC, soit jusqu'à ce que 77 impulsions de pas 
aient été envoyées au lecteur de disquette. Ce cas peut se 
produire sur les lecteurs à 80 pistes lorsque la tête de 
lecture/écriture se trouve sur les pistes intérieures 78 à 
80, Dans ce cas on peut simplement répéter l'instruction 
"’Recalibrate’, 


Bit 3 NR : Non Ready 
Lorsque le lecteur de disquette sélectionné communique 
lors d'une instruction de lecture ou d'écriture qu'il 
n'est pas prêt, ce flag est mis. La tentative d'accès à 
une deuxième tête qui n'existe pas d’un lecteur simple 
face à également pour effet de mettre ce bit. 


Bit 2 HD : HeaD adress 
Ce bit informe sur la tête sélectionnée au moment de 
l'évènement d'interruption. 


Bits 1,0 US : Unit Select 
Ces deux bits indiquent quel lecteur est actif au moment 
de l'interruption. 


LE REGISTRE D'ETAT 1 
Ce registre informe dans la phase résuitat sur le déroulement de la phase 
exécution. 


Bit / EN : ENd of track 
Ce flag est mis par le FDC lorsqu'il tente un accès à un 
Secteur après la fin programmée de la piste. 


Bit 6 INUTILISE, TOUJOURS ZERO 


Bit SDF : Data Error 
Lors de l'écriture de données, le FDC produit 
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Bit 4 OR 


automatiquement une valeur de contrôle (check sum), 
d'après le principe du ‘Cyclic Redundance Check’, valeur 
qui est sauvegardée sur la disquette avec les données. Ces 
valeurs de contrôle sont également formées lors de la 
lecture des données. Elles Sont alors comparées aux 
valeurs sauvegardées. Si le FDC constate une différence 
entre les deux valeurs de contrôle dans les champs de 
données ou dans les champs ID, le flag DE est mis. 


: Over Run 


Le transfert de données entre processeur et FDC en lecture 
ou en écriture doit se dérouler en un temps maximum 
déterminé. C'est ainsi que les données sont fournies au 
processeur en lecture avec des intervales de seulement 26 
ms, Si le processeur, pour n'importe quelles raisons, ne 
peut tenir cette vitesse, il peut arriver qu'un nouvel 
octet soit prêt à être lu avant que le dernier octet n'ait 
pu être lu par le processeur, Dans un tel cas on parle d' 
Over Run et le bit OR est mis. 


Bit 3 INUTILISE, TOUJOURS ZERO 


Bit 2 ND 


Bit 1 NW 


! No Data 


Ce flag peut être mis pour plusieurs raisons. Ce flag est 
mis lors de l'exécution d’une instruction d'écriture, de 
lecture où de scanning lorsque le controller ne trouve pas 
le secteur indiqué. 

Lors de l'exécution de l'instruction ‘lire 1D secteur’, le 
flag ND est mis si le controller n'arrive pas à lire sans 
erreur un champ ID. Dans ce cas également, la cause de 
l'erreur est une erreur dans la valeur de contrôle. 

La troisième cause possible apparaît en liaison avec 
l'instruction ‘lire piste’ lorsque le secteur de départ 
indiqué n’a pu étre trouvé sur la piste. 


* Non Writable 


Si on constate, lors de l'exécution des instructions 
'écrire secteur’, ‘écrire secteur effacé’ ou ‘formater 
piste’ que la disquette est protégée contre l'écriture, ce 
flag est mis. 


“10 





Bit O MA 


* Missing Adress mark 


Ce flag est toujours mis lorsque le FDC n'a pu trouver, 
lors de la lecture ou de l'écriture de données, l'ID 
secteur au cours d'une rotation complète de la disquette, 
L'absence de la Data Adress Mark ou de la Data Adress Mark 
effacée est également signalée par la mise de ce bit. En 
outre et simultanément, le flag MD du registre d'état 2 
est mis, 


LE REGISTRE D'ETAT. 2 
De même que ST1, ST2 fournit des indications sur le succès ou l'échec 
d'une instruction. 


Bit 7 INUTILISE, TOUJOURS ZERO 


Bit 6 CM 


Bit 5 DD 


Bit 4 WC 


Bit 3 SH 


* Control Mark 


Si le FDC trouve lors de la lecture de données ou lors 
d'une instruction Scan un Secteur avec une Data Adress 
Mark effacée, il met ce bit, 


: Data error in Data field 


Comme pour le flag DE (Bit 5 de ST1), ce bit est mis lors 
d'erreurs CRC, Ce bit n'est toutefois mis que pour des 
erreurs dans les champs de données. 


. Wrong Cylinder (Track) 


Lors du formatage d’une piste doivent être indiqués pour 
chaque secteur le numéro de secteur, le numéro de piste, 
le numéro de tête et la taille du secteur, Ces données 
sont sauvegardées dans l'ID secteur et sont lues lors des 
instructions de lecture, Si le FDC constate alors une 
différence entre le numéro de piste Iu et le numéro de 
piste indiqué, il met le flag WC, 


: Scan equal Hit 


Si une instruction Scan est lancée qui compare les 
informations de secteur avec les données fournies par le 
processeur, ce bit sera mis si les données sont 
effectivement identiques, 


ie 


Bit 2 SN . Scan Not satisfied 
Si le FDC ne trouve lors d'une quelconque instruction Scan 
aucun secteur qui corresponde de la façon demandée aux 
données indiquées, le bit SN est mis. 


Bit 1 BC : Bad Cylinder 
Ce flag a une signification semblable à celle du flag WC, 
Il est mis lorsque le numéro de piste lu dans l’ID ne 
coïncide pas avec celui indiqué dans l'instruction et que 
le numéro de piste lu dans l'’ID est &8FF, 


Bit O MD : Missing adress mark in Data field 
Si le FDC ne peut trouver la Data Adress Mark ou la Data 
Adress Mark effacée lors de la lecture de données, ce bit 
est mis, 


LE REGISTRE D'ETAT 3, L'ETAT DU LECTEUR DE DISQUETTE 

Le contenu de ce registre ne peut être transmis au processeur qu'avec 
l'instruction ‘déterminer état lecteur’, Les bits de ce registre 
reflètent l'état du lecteur sélectionné dans l'instruction, 


BIC:Z FT : FaulT 
Ce flag reflète l’état du signal Fault qui existe sur 
certains lecteurs de disquette, Lorsque le lecteur dispose 
d'une telle connexion et que ce bit est mis, c'est qu’une 
erreur s'est produite dans le lecteur de disquette, 


Bit 6 WP : Write Protected 
Ce flag indique sl la disquette placée dans le lecteur est 
protégée contre l'écriture, Un flag WP mis signifie qu'il 
n'est pas possible d'écrire sur la disquette, 


BIC'S RY : ReadY 
Ce bit est utilisé pour déterminer l'état du canal Ready 
du lecteur de disquette. Un flag RY mis signale l’état 
‘Drive Ready'. 


Bit 4 TO : [rack 0 
Si la tête de lecture/écriture du lecteur sélectionné se 
trouve sur la piste 0 au moment de l'instruction, le flag 
TO est mis, 


82 


Bit 3 TS 


Bit 2 HD 


BIts 1,0 


: IWwo Side 


Les lecteurs à double tête placent cette connexion sur la 
masse, Sur les lecteurs à simple tête, ce signal est par 
contre normalement high, L'état du bit IS permet au 
programme de déterminer quel type de lecteur est connecté. 


: HeaD adress 


Ce bit reflète l'état du signal Head select du FDC (pin 
21), 


: Unit Select 


L'état de ces deux bits est identique aux niveaux des deux 
canaux US du FDC (pins 28 et 29), 
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5.1,2,4 L'EMPLOI DU FDC 765 SUR LE CPC 


Malheureusement les développeurs du CPC sont loin d’avoir utilisé toutes 
les possibilités du FDC, C’est ainsi que deux lecteurs seulement peuvent 
etre connectés au lieu des quatre possibles, L'exploitation de lecteurs à 
double tête n'est pas non plus possible car le signal HEAD SELECT, s'il 
est bien connecté, n'est cependant pas utilisé, Le sort du signal HEAD 
LOAD est encore pire puisqu'il n’est connecté nulle part. Ce défaut est 
cependant le plus facile à admettre puisqu'une exploitation de disquette 
8" est d’une part sans intérêt pour l'utilisateur ‘moyen’ du fait des 
énormes dimensions physiques de ces lecteurs et qu'elle est d'autre part 
rendue impossible par d'autre détails dans les connexions du controller. 
Malgré ces réserves, le controller a été très intelligemment construit 
pour le Dut recherché, l'exploitation sans problème de deux lecteurs 3”. 
Avec une économie maximum d'électronique, un controller a été réalisé qui 
présente d'excellentes caractéristiques techniques, 


Malgré l'esprit d'économie des développeurs, on n'a heureusement pas 
limité la fiabilité de l'appareil, On a ainsi adapté comme ‘auxiliaire’ 
au FDC 765 un composant qui arrache aux experts en électronique, pour le 
moins, une moue d'approbation. Nous pensons au séparateur de données 
intégré à 20 pôles SMC 9229 de l'interface du CPC 464, Sur le CPC 664, 
c'est, certainement pour des raisons de coût, le ‘petit frère’ de ce 
Séparateur de données, le SMC 9216 à 8 pôles qui a été employé, Bien que 
ne disposant pas de toutes les possibilités du 9229, Il est tout aussi 
fiable comme séparateur de données. Tous les signaux pour l'interface 
disquette du FDC, à l'exception du signal pour la mise en marche des 
moteurs du lecteur de disquette, sont produits par le FDC et le 
Séparateur de données. 


Bien que l'exploitation DMA représente la méthode la plus simple et la 
plus élégante pour connecter le disk controller, c'est une autre voie qui 
a été choisie, certainement pour des raisons de coût, Le processeur 
Synchronise le transfert de données au vu du registre d'état principal. 
Les interruptions produites par le controller ne sont pas utilisées, 
Effectivement, la connexion d'interruption du FDC n'est pas branchée. 


Le FDC est situé sur les adresses de port 8FB/E et &FB/F., À la première 
adresse se trouve le registre d'état principal, la deuxième adresse 
appartient au registre de données. 

Une troisième adresse est occupée par le Controller Board. Sur le port 
&FA/E se trouve un flip-flop à travers lequel les moteurs du lecteur de 


- 154 - 


disquette sont commandés, Si on écrit un 1 sur ce port (OUT &FA/E,1 en 
Basic), les moteurs de tous les lecteurs connectés Sont mis en marche, 
par contre si on écrit un O0, tous les moteurs sont à nouveau arrêtés, 


L'intéressant est que la connexion Terminal Count soit reliée au pin 
Reset. Les deux connexions sont branchées ensemble et reçoivent ensemble 
une impulsion positive en cas de Reset. La production d’une impulsion TC 
séparée n'est pas prévue dans le controller. Cela pose bien sûr la 
question de savoir comment est terminé un accès en lecture à la 
disquette, (Remarque: les développements suivants ne valent pas seulement 
pour la lecture des données mais également pour Iles instructions 
d'écriture et les instructions Scan.) 

Habituellement, une impulsion TIC est envoyée après lecture du secteur 
voulu. En l'absence de cette impulsion, un [7/0 multi-secteur est exécuté, 
ce qui veut dire que le controller lit des données jusqu'à ce qu'il 
rencontre le dernier secteur de la piste, Comme cependant le dernier 
secteur de la piste doit être programmé dans les neuf octets de 
l'instruction de lecture, les développeurs ont eu recours à une astuce. 
I1s fixent simplement le numéro du dernier secteur de façon à ce qu'il 
soit identique au numéro du secteur à lire, Après que toutes les données 
du secteur aient été lues, le FDC met automatiquement fin à la procédure 
de lecture et commence la phase résultat. 

Cette façon de procéder entraîne toutefois un point qui doit être pris en 
compte lors de la programmation des routines du controller. Si un secteur 
est lu avec ce procédé, le registre d'état O0 indique en retour une erreur 
au système d'exploitation. Il s'agit de l'erreur ‘Instruction lancée mais 
non terminée correctement’, le bit 6 du STO est mis. La cause exacte de 
l'erreur se trouve dans le STI: ici, le bit 7 est mis. Cela signifie en 
clair: fin de la piste atteinte, tentative d'accès à un secteur après la 
fin de la piste, Cette erreur doit étre ignorée par le système 
d'exploitation sans toutefois que cela entraîne que d'autres erreurs 
éventuelles soient ainsi ignorées,. 

Le branchement réalisé rend impossible l'exploitation de lecteurs de 
disquette 8”, Mais les routines de l'AMSDOS ne sont pas non plus conçues 
pour l'exploitation de lecteurs de disquette 8”, D'ailleurs il n'est pas 
ou très difficilement possible sous AMSDOS de connecter des lecteurs 
ayant des caractéristiques techniques différentes, comme par exemple 80 
pistes ou double tête de lecture. La connexion de tels lecteurs est en 
principe possible. Le signal correspondant pour la sélection de la tête 
de lecture pour les lecteurs à double tête est même branché sur 
l'interface disquette, Il faut cependant alors réécrire des sections 
essentielles du DOS car Il'’AMSDOS ne supporte pas le signal HS, 


cn 


3.2 LA STRUCTURE DE LA DISGUETTE 


3,2,1 LES TROIS FORMATS DE DISQUETTE 


Comme vous le savez, le CPC distingue trois différents formats de 
disquette, le format CPC standard, le format de données et le format IBM, 
Vous pouvez Sélectionner le format à utiliser lors du formatage de la 
disquette en indiquant $S ou V (pour Système et Vendor), D (pour Données) 
ou 1 (pour IBM), Nous allons maintenant examiner plus précisément comment 
les formats sont structurés et en quoi ils se distinguent les uns des 
autres, 


Lors de chaque accès à une disquette, AMSDOS détermine automatiquement le 
format. Cela ne se produit cependant que lorsqu'aucun fichier n'est 
ouvert sur la disquette, Cette limite peut cependant parfaitement être 
acceptée puisque, comme vous le Savez, les disquettes avec des fichiers 
ouverts ne doivent pas être retirées du lecteur de disquette. Nous avons 
déjà évoqué le critère de distinction qui est constitué par les numéros 
de secteurs différents correspondant à chaque format. 

En fixant certaines cases mémoire de la Ram, on dispose d'une autre 
possibilité pour interdire ce Ilog-in automatique, autre terme pour 
désigner la déterminatlon des paramètres disquette. Vous trouverez ces 
cases mémoire dans la liste de la Ram disquette, dans un chapitre 
ultérieur, 


Un certain nombre de choses sont communes aux trois formats, Il y a 
d'abord le nombre des pistes sur la disquette, Ce nombre est toujours de 
40, les différentes pistes étant numérotées de 0 à 39, La taille d'un 
secteur est également identique pour les trois formats: 512 octets par 
secteur. En outre, pour tous les formats, 64 fichiers au maximum peuvent 
etre placés sur les disquettes. 

Mais c'est à cela que se résument les points communs, 


3.2,1,1 LE FORMAT CPC STANDARD OÙ FORMAT SYSTEME 


Ce format est certainement le format de disquette habituel et le format 
le plus utilisé sur le CPC, Dans ce format, une piste contient 9 secteurs 
avec les numéros de secteur &41 à &49, D'autre part les deux premières 
pistes de la disquette sont réservées pour CP/M, Si donc vous voulez 
travailler sous CP/M, c'est ce format que vous devriez utiliser car ce 
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n'est qu'avec ce format qu'un lancement ou un Warm Boot (Control C) de 
CP/M est possible. 


Les pistes réservées sont affectées comme suit: 


Piste 0, Secteur 8&41: Secteur Boot, 

Piste 0, Secteur 842: Secteur de configuraton 
Piste O0, Secteurs 843 à &4/: inutilisés., 
Piste 0, Secteurs 848, 849 et 

Piste 1, Secteurs 841 à 849: CCP et BDSOS. 


Bien que nous ayons jusqu'ici parlé de trois formats, ce qui est 
fondamentalement exact, le programme ‘’FORMAT,COM' ne connaît cependant 
pas que les trois indications $S, D ou 1 mais également une quatrième 
possibilité, le ‘’V',. Avec cette indication, la disquette est formatée 
comme avec $S mais les pistes système ne sont pas écrites, Cette option 
est essentiellement conçue pour l'exploitation commerciale des logiciels 
CP/M qui doivent être vendus, pour des raisons de Copyright, sans CP/M, 
L'utilisateur doit écrire lui-même CP/M sur les pistes système après 
avoir acquis un de ces logiciels, On peut utiliser le programme 
SYSGEN,COM à cet effet, 


3,2,1,2 LE FORMAT DE DONNEES 


Dans ce format également, 9 secteurs sont formatés sur chacune des 40 
pistes. Les numéros de secteur sont cependant &C1 à &C9, Avec ce format, 
il n'y a pas de pistes système réservées, de sorte que vous disposez avec 
ce format de 9216 octets supplémentaires sur la disquette. 


3,2,1,3 LE FORMAT IBM 


Ce format est identique au format de l'IBM-PC sous CP/M 86, Si par pur 
hasard vous disposez à côté de votre CPC d'une telle machine comme second 
ordinateur, vous pouvez lire et écrire les disquettes de l’IBM également 
sur votre CPC, Cela suppose toutefois que Iles deux ordinateurs 
travaillent avec la même taille physique de disquette. Le format IBM se 
traduit par une place mémoire un peu plus réduite que pour Îles deux 
formats précédents car 8 secteurs seulement sont formatés Sur une piste. 
Ce nombre moindre de secteurs est cependant quelque peu compensé par le 
fait qu'une seule piste, la première piste, est réservée comme piste 


of = 


système. 


3,2,2 LA STRUCTURE DU CATALOGUE 


Avec lies trois formats, 64 fichiers maximum peuvent être sauvegardés sur 
la disquette, Dans cette section, nous allons examiner de plus près où et 
sous quelle forme les noms de fichier sont sauvegardés sur la disquette, 


La structure fondamentale du catalogue est imposée par CP/M. Comme les 
disquettes doivent pouvoir être lues et écrites aussi bien sous CP/M que 
Sous AMSDOS, Il'AMSDOS a dû être adapté à la structure de catalogue de 
CP/M, Si donc nous parlons dans les développements suivants d'AMSDOS, 
toutes ces explications vaudront également pour CP/M, étant donnée la 
compatibilité entre les deux systèmes d'exploitation. Nous ne vous 
rappellerons donc pas chaque fois cette compatibilité. 


La gestion automatique d’un catalogue constitue une des tâches 
essentielles de tout système d'exploitation de disquette, Seule 
l'existence d'un tel catalogue permet de trouver les données aussi 
rapidement sur la disquette. Si cependant ce catalogue ne contient que 
les noms de fichier, cela n'apporte pas encore l'accès rapide voulu. Dans 
ce cas en effet, il faudrait que vous vous occupiez vous-même de la bonne 
gestion des différents secteurs sur la disquette, Vous comprendrez la 
complexité d'une telle tâche s'il vous arrive un jour que le catalogue de 
votre disquette favorite devienne illisible et si vous devez alors sauver 
ies données de la disquette ‘manuellement. 

Le catalogue doit donc également comprendre, outre le nom du fichier, la 
situation physique des données sur la disquette, Ce sont précisément ces 
deux données qui sont sauvegardées par AMSDOS dans l'entrée catalogue 
d'un fichier, Avant cependant que nous n'’examinions de plus près comment 
est faite cette sauvegarde, il est nécessaire que nous expliquions ici 
certaines notions que nous allons souvent employer par la suite. 


Il y a d'abord la notion de SECTEUR. Un secteur est une zone qui est 
disposée pour les données sur la disquette, lors du formatage. Dans 
l'AMSDOS, les secteurs ont toujours une taille de 512 octets, d'autres 
systèmes d'exploitation utilisent par exemple des secteurs de 128, 256 ou 
même 1024 octets, 

Lorsque des données doivent être lues sur la disquette, c’est toujours un 
secteur entier qui devra être Iu. 11 n'est pas possible de lire 
directement sur la disquette, de façon parfaitement sélective, uniquement 


D: 


certains octets déterminés, Le secteur est donc la zone de données qui 
peut être appelée au niveau le plus bas. 

Un ENREGISTREMENT est un bloc de données plus petit d'exactement 128 
octets. Chaque secteur (d'AMSDOS) contient par conséquent exactement 4 
enregistrements. Pourquoi cette subdivision? La raison tient à l'histoire 
de la genèse de CP/M. CP/M a été à l'origine développé avec des lecteurs 
de disquette 8”, Sur ces lecteurs un secteur avait toujours, à l'époque 
du développement, une taille de 128 octets, Ce n’est que plus tard que 
des formats furent développés avec des secteurs de taille supérieure à 
128 octets, Pour conserver la compatibilité avec le format utilisé 
précédemment, le secteur de plus grande taille fut subdivisé par le BIOS, 
par programme, en unités plus petites de 128 octets, La compatibilité 
était ainsi assurée. AMSDOS travaille également du point de vue logique 
au niveau de l'enregistrement, Cela signifie qu'AMSDOS et CP/M ne 
connaissent en fait absolument pas les secteurs, 

Une troisième notion nécessite une explication, Il s'agit de la notion de 
bloc, Cette notion remonte également à la préhistoire de CP/M,. Lorsqu'on 
veut stocker sur disquette des fichiers de plusieurs dizaines de K, il 
faut enregistrer un nombre considérable de secteurs occupés par le 
fichier. Ce nombre peut cependant être considérablement réduit si l'on 
réunit plusieurs enregistrements dans des blocs et qu'on enregistre les 
numéros de bloc. La taille des blocs peut être librement définie sous 
CP/M, les valeurs usuelles sont 1K (comme sous AMSDOS) ou 2K. Pour 
maîtriser les calculs nécessaires à cet effet, tous les secteurs libres, 
c'est-à-dire tous ceux qui ne sont pas occupés par les pistes système 
sont numérotés dans l'ordre, à partir des pistes inférieures, 

Dans la pratique, sur une disquette en format S, le secteur &41 de la 
piste 2 contient les enregistrements 0 à 3 de la disquette, Sur le 
secteur &42 se trouvent les enregistrements 4 à 7, etc. Comme donc un 
bloc a sous AMSDOS une taille de 1K, il contient 8 enregistrements. Le 
bloc O se trouve donc sur les secteurs 841 et g42 de la piste 2, le bloc 
1 occupe les secteurs 843 et &44 et le bloc 4 occupe par exemple le 
Secteur &49 de la piste 2 ainsi que le secteur &41 de la piste 3, 

Nous reconnaissons volontiers que ces calculs sont très compliqués mais 
ils sont tout simplement indispensables sous CP/M et AMSDOS, Mais 
revenons à notre catalogue, 

Vous êtes-vous déjà demandé pourquoi même le plus petit programme prend 
toujours 1K sur la disquette, même s'il ne comporte qu'un octet et qu'il 
ne remplit donc ainsi même pas un enregistrement ni un secteur? Nous 
venons justement d'en découvrir la raison, Ce sont les numéros des blocs 
occupés par un fichier qui sont enregistrés dans le catalogue. 
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Examinons donc une entrée de catalogue de plus près, Chaque entrée occupe 
32 octets. Commençons par les 16 premiers octets. 


00 46 4F 52 ND 41 54 20 20 43 4F 4D 00 00 00 15 .FORMAT COM... 


Il S’agit, comme pour l'entrée DIR, de l'entrée du programme FORMAT.COM, 
Voici ce qu'on peut dire sans connaissance approfondie d’AMSDOS, Le point 
entre le nom de fichier et l'extension n'est pas sauvegardé avec le nom 
puisque le nom de fichier est rempli par deux caractères espace (valeur 
ASCII 32 ou 20 hexa). Mais que signifie la valeur 0 devant le nom de 
fichier, Souvenez-vous du numéro user qui peut être affecté à chaque 
fichier. Ce numéro est rangé dans le premier octet de l'entrée et règle 
l'accès au fichier, Cette valeur a en outre une autre signification que 
nous étudierons un peu plus tard. 

Le nom de fichier est suivi de trois autres octets zéro et d'un octet de 
valeur &15, La signification de ces octets n'est pas très simple à 
découvrir. Seuls les octets 12 et 15 importent mais nous ne voulons pas 
encore vous en révéler la Signification, Examinons d’abord les 16 octets 
manquant encore de l'entrée, 


>5 56 577 00 00 00 00 00 00 00 00 00 00 00 00 00 UVW..,..,.,,..., 


La signification de ces octets n'est pas non plus très aisée à deviner. 
Toutefois, si nous essayions une instruction CAT alors que la disquette 
Master CP/M se trouve dans le lecteur, cela nous aiderait un peu à 
trouver la solution de ce problème. Dans le catalogue, le fichier 
FORMAT ,COM est présenté avec une taille de 3 K. Comme 1 K correspond à un 
bloc et que trois des 16 octets ci-dessus contiennent une autre valeur 
que 0, on est en droit de supposer que ces numéros sont les numéros de 
bloc, Cette supposition est parfaitement fondée, Les blocs occupés par un 
fichier sont en effet enregistrés dans les octets 16 à 31 d’une entrée du 
catalogue, 


Cela soulève beaucoup de questions nouvelles, La question principale est: 
aue se passe-t-il lorsqu'un fichier dépasse 16 K? La réponse est très 
Simple, AMSDOS offre simplement à de tels fichiers une entrée de fichier 
supplémentaire, Une telle extension d'entrée ne se distingue de ]la 
première entrée qu'à peu d'égards, C'est essentiellement que les autres 
bIoCs occupés sont enregistrés dans les octets 16 à 31. Le numéro user et 
le nom de fichier sont identiques dans les deux entrées, 


La prochaine question qui Se pose est: à quoi AMSDOS reconnaît-il qu’une 
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extension suit? 11 nous faut pour cela connaître la signification de 
l'octet 15 d'une entrée, Un petit exemple de calcul est nécessaire. Notre 
exemple FORMAT,COM se compose de 3 blocs. Comme nous l'avons dit, un bloc 
contient 8 enregistrements, Le fichier FORMAT.COM peut donc comporter au 
maximum 24 enregistrements (18 hexa), Le 15 est en fait le nombre 
d'enregistrements du fichier FORMAT.COM en hexadécimal. 

Si un fichier dépasse la taille maximum pouvant être couverte par une 
entrée, la valeur de l'octet 15 de l'entrée se calcule alors ainsi: 16 
(blocs) * 8 (enregistrements)= 128 ou 880. Dès que cette valeur figure à 
cet endroit, AMSDOS considère automatiquement qu'une extension suit. 

Pour qu'il n'y ait pas de confusion avec les très grands fichiers 
comportant plusieurs extensions, les extensions sont numérotées en ordre 
croissant dans l’octet 12, immédiatement après le nom de fichier, L'ordre 
dans lequel Iles extensions doivent être lues est ainsi déterminé. Avec 
cette organisation, un fichier peut atteindre une taille qui n'est 
limitée que par le fait qu'il ne reste plus de place dans le catalogue 
pour d'autres entrées ou par le fait que la disquette est pleine. 


Mais revenons brièvement sur le premier octet de l'entrée, Comme nous 
l'avons déjà indiqué, le numéro user est enregistré dans cet octet. 

Si Vous avez déjà essayé le programme de lecture de secteurs quelconques 
ou le moniteur disquette et que vous avez ainsi inspecté les secteurs du 
catalogue de vos propres disquettes, vous avez peut-être rencontré pour 
certains fichiers la valeur &E5S au lieu d’un numéro user correct (0 à 
15), Les noms de fichier correspondants n'apparaissent cependant pas dans 
le catalogue lorsque vous entrez l'instruction CAT, Ce n'est pas étonnant 
Car il s’agit très probablement de fichiers que vous avez vous-même 
supprimés au moyen de l'instruction ERA. 

AMSDOS est en effet très prudent dans la suppression des fichiers. I1 
recherche simplement le nom du fichier indiqué avec toutes ses extensions 
éventuelles et fixe le numéro user sur la valeur 8E5, À partir de ce 
moment, ce fichier n'existe plus pour AMSDOS même si toutes les données 
figurent encore sur la disquette, Cette procédure prudente est très 
appréciable lorsque vous avez supprimé par erreur des fichiers 
importants. 11 vous suffit en effet dans un tel cas de lire les secteurs 
du catalogue avec un moniteur disquette et de fixer à nouveau le numéro 
user sur une valeur raisonnable, Votre fichier sera alors ressuscité. La 
valeur &E5 comme marque de suppression n’a par ailleurs pas été choisie 
par hasard. Après le formatage, tous les secteurs contiennent la valeur 
&ES, y compris donc les secteurs du catalogue, Si un accès au catalogue 
est alors entrepris, AMSDOS trouve alors pour chaque entrée possible la 
marque de suppression Sans qu’une procédure spéciale soit donc 
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nécessaire. 


Cela nous amène au dernier point important du catalogue, la situation sur 
la disquette, Comme nous l'avons déjà indiqué, 64 fichiers peuvent être 
au maximum enregistrés dans le catalogue, À raison de 32 octets par 
entrée, on obtient un besoin de place mémoire de 2048 octets. Cela 
correspond à 2 blocs ou 4 secteurs où encore 16 enregistrements, Pour 1es 
trois formats, les deux premiers blocs de la première piste libre sont 
systématiquement utilisés pour le catalogue. En format $S, le catalogue se 
trouve donc sur les secteurs 841 à &45S de la piste 2, en format D sur lies 
secteurs &C1 à &C5 de la piste O0 et en format 1 sur les secteurs &01 à 
805 de la piste 1, 

En guise de conclusion de ce chapitre sur le catalogue, encore deux 
conseils. 

Si le bit 7 du premier caractère de l'extension du nom de fichier, c'est- 
a-dire du neuvième octet de l'entrée, est mis le fichier reçoit alors 
l'attribut READ-ONLY, Les fichiers ainsi marqués ne peuvent être ni 
supprimés ni renommés sous AMSDOS et CP/M, 11 y a (au moins) deux moyens 
de mettre ce bit, La première possibilité est offerte par l'instruction 
CP/M transitoire STAT, La seconde possibilité est offerte par le moniteur 
disquette. Si vous avez trouvé l'entrée à protéger dans les secteurs du 
catalogue, additionnez la valeur 128 ou 880 à la valeur ASCII du premier 
caractère, modifiez cet octet en fonction du résultat et réécrivez tout 
simplement le secteur ainsi modifié sur la disquette, 

Notre seconde astuce vous permettra de dissimuler un fichier aux regards 
non-autorisés, Vous devez pour cela, comme pour l'attribut READ-ONLY, 
fixer le bit 7 du second octet de l'extension. Cette tâche peut également 
etre réalisée sous CP/M avec STAT ou sous AMSDOS avec notre petit 
moniteur disquette, Mais n'oubliez pas le nom d'un fichier que vous aurez 
ainsi protégé. Ni CAT ni DIR n’indiquerons plus en effet sa présence sur 
la disquette. 
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3,2.3 LA STRUCTURE DES FICHIERS 


Après que le chapitre précédent nous ait donné un aperçu des informations 
enregistrées dans le catalogue, nous allons maintenant voir comment les 
données proprement dites figurent sur la disquette, 


se pose d'abord la question de Savoir d'où les informations telles que 
type de fichier, longueur du fichier ou adresse de départ du programme 
chargé sont tirées lorsqu'on lit un fichier. Ces informations header ne 
figurent pas en effet dans l'entrée du catalogue, C'est donc qu'elles 
sont sauvegardées avec les données, 


Cela pose cependant le problème de savoir sous quelle forme ces données 
supplémentaires doivent être sauvegardées pour qu'il n'y ait pas de 
confusion entre header et données, Nous allons effectuer quelques 
expérlences qui nous donneront des indications sur la façon dont sont 
sauvegardées les données, 


Entrez par exemple la ligne: 
SAVE"X1.BIN”",B,8&1000,1024 


sur votre CPC et appuyez sur la touche ENTER, Le contenu du fichier ne 
nous intéresse pas pour le moment et vous pouvez donc choisir n'importe 
quelle adresse comme valeur de départ. Ce qui importe par contre, c'est 
la longueur de la zone de mémoire Sauvegardée, Comme nous l'avons vu 
auparavant, les fichiers sont toujours sauvegardés sous AMSDOS par blocs 
de 1K,. Comme nous avons choisi une longueur d'exactement 1K, le catalogue 
devrait indiquer pour ce fichier une longueur de 1K, Pensez-vous! Le 
fichier occupe 2K, 

Entrez à nouveau cette ligne mais en réduisant la valeur de la longueur 
de fichier de 100, à 924, A la surprise générale, le fichier ne semble 
pas étre plus petit et il occupe toujours 2K, 

Faisons une troisième tentative, Entrez comme longueur l'expression 1024- 
128. Et voilà, c'est accompli. Notre fichier X1,BIN n'occupe plus qu'1 K 
sur la disquette, Toute indication de longueur supérieure, ne serait-ce 
que d'un octet entraînera à nouveau une taille de fichier de 2 K. 


Un enregistrement, autrement dit 128 octets, sont donc sauvegardés en 
plus des données. Dans cet enregistrement figurent toutes les 
informations header. L'enregistrement-header est le premier 
enregistrement de presque tous les fichiers, Pourquoi cette réserve? 


so LES 


Essayez par exemple le petit programme suivant: 


10 OPENOUT"X1 .DAT" 
20 FOR i=1 TO 1024 
30 PRINT#9, "x"; 

4O NEXT i 

50 CLOSEOUT 


D'après nos expériences précédentes, on pourrait supposer que le fichier 
X1.DAT figurera au catalogue avec 2K. Mais il n'en est pas ainsi, En fait 
le fichier n'a qu'une taille de 1K, soit exactement la taille 
correspondant au nombre de caractères qui ont été écrits dans le fichier. 


Cela nous donne la règle suivante: 


Les purs fichiers ASCII qui ont été sauvegardés avec la marque de 
type de fichier 816, n'ont pas d'enregistrement-header, (Le système 
d'exploitation n'évalue que le quartet faible, c'est-à-dire que 816 
et &36 sont également traités comme de purs fichiers ASCI]) 


Sur tous les autres fichiers, donc par exemple les programmes Basic 
ou machine, le premier enregistrement est l'’enregistrement-header, 
qui Sera copié lors du chargement dans la zone header. 


Bien, Mais comment un programme peut-il déterminer si un fichier est un 
pur fichier ASCII. En effet, il n’y a dans le catalogue aucune indication 
sur le type de fichier. Ce problème a certainement donné quelque peu la 
migraine aux programmeurs de l'’AMSDOS. 

Finalement on à choisi une voie qui semble à peu près passable. 

Lors de l'ouverture d'un fichier d'entrée, une valeur de contrôle sur 16 
bits est systématiquement constituée avec les 66 octets du premier 
enregistrement. Le résultat est comparé au contenu des octets 67 et 68 de 
l'enregistrement, Si les valeurs sont identiques, cet enregistrement est 
à peu près certainement un enregistrement-header, Si cependant cette 
condition de contrôle devait par hasard être remplie sur un fichier 
ASCII, le premier enregistrement du fichier serait perdu, Cette 
possibilité est cependant très peu probable, de sorte qu'elle n'est pas 
envisagée par le système d'exploitation, 
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3.2,4 L'ECRITURE PHYSIQUE DES DONNEES SUR LA DISQUETTE 


Etes-vous de ceux qui aiment bien remonter au fond des choses? Dans ce 
cas ce chapitre est fait pour vous. Nous allons vous montrer comment les 
données figurent effectivement sur la disquette. Nous n'’entendons pas par 
données, dans ce chapitre, le contenu de n'importe quels fichiers, mais 
tout ce qui est placé sur une piste, sous une forme ou sous uñe autre. 
Nous expliquerons également dans ce contexte des notions telles que ID 
secteur, Gap ou Adress Mark. 


3,2,4,1 MF, MFM, BITS ET MAGNETISME 


Comme vous le savez déjà, la surface de la disquette est subdivisée en 40 
sections ou pistes, La tête de lecture/écriture du lecteur de disquette 
peut être placée de façon sélective au dessus de chacune de ces pistes au 
moyen d'un moteur de pas. De même qu'avec le lecteur de cassette, les 
données Sont sauvegardées sur la disquette bit par bit. La sauvegarde bit 
par bit des données et l’utilisation d'enregistreurs de données 
magnétiques représentent cependant les seuls points communs entre les 
deux systèmes de sauvegarde. 

Avec le lecteur de disquette, la couche magnétique de la disquette est 
entièrement magnétisée, Sur le lecteur de cassette, on aurait la plus 
belle surmodulation possible avec un facteur de résonance de 100 pour 
cent, Ce facteur de résonance ‘idéal’ n’est cependant absolument pas 
gênant pour le lecteur de disquette. Au contraire, plus la magnétisation 
est réussie lors de l'écriture, plus la lecture ultérieure des données 
sera simple, 

Pour comprendre le format d'enregistrement utilisé sur le CPC, il nous 
faut faire un petit détour par la physique. La tête de lecture/écriture 
d'un lecteur de disquette se compose essentiellement d'une bobine. Les 
bobines sont parmi les composants électroniques les plus intéressants 
même Si elles sont malheureusement souvent méconnues. Une des propriétés 
capitales des bobines est constituée par le fait qu'un champ magnétique 
dans une bobine produit une tension. 11 est toutefois très important que 
le champ magnétique se modifie en permanence pour produire une tension 
continuelle dans la bobine, Un champ magnétique statique, qui ne se 
modifie donc pas, ne produit par contre aucune tension. On trouve ce 
principe par exemple dans la dynamo d’une bicyclette, 

L'intéressant est que cette particularité peut être également inversée, 
Une tension placée sur une bobine produit un Champ magnétique, Si une 
tension Changeante est envoyée, un champ magnétique se modifiant au même 
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rythme sera produit, 

Ces deux propriétés de la bobine sont utilisées dans la tête de 
lecture/écriture du lecteur de disquette. Si une information doit être 
écrite sur la disquette, une tension alternative est placée sur la tête 
qui produira un champ magnétique. Ce champ magnétique magnétise le 
revêtement de la disquette, la sauvegarde est ainsi effectuée. Dans le 
cas inverse, le champ magnétique alternatif sur la disquette produit dans 
la bobine une tension qui est amplifiée et traitée par une électronique 
appropriée, 


On pourrait maintenant avoir l'idée de marquer un Ilonbit (bit 0) par une 
absence de magnétisation et un highbit (1) par contre par des champs 
magnétiques sans cesse changeants, On reconstituerait ainsi directement, 
lors de la lecture, les Signaux digitaux. Ce n'est cependant pas tout à 
fait aussi simple. L'électronique et la mécanique du lecteur qui seraient 
en effet nécessaires avec cette méthode devraient en effet travailler de 
façon extrêmement précise car il faudrait mesurer de façon très exacte 
iles durées pour low et high lorsque plusieurs Ion bits ou plusieurs high 
bits se suivent sur la disquette, 

Le problème devient plus simple si on sauvegarde avec les données une 
fréquence fixe de référence, Cette fréquence permet alors de déterminer 
très aisément la longueur d'une cellule de bit. Mais l'enregistrement de 
Champs magnétiques se modifiant rapidement dans le cas d’un high bit ne 
peut pas non plus être utilisée sous cette forme, Au lieu de cela, on 
procède simplement ainsi: Si un high bit doit être sauvegardé, on produit 
une impulsion exactement entre deux impulsions de fréquence, alors que 
pour un zéro on ne produit aucune impulsion entre deux impulsions de 
fréquence. La figure 3.2,4,1,1 montre comment peut se présenter une telle 
chaîne d’impulsions. 

Cette chaîne d‘impulsions commande un flip-flop (bascule électronique) 
qui inverse l'état de sa sortie lors de chaque impulsion d'entrée. Vous 
voyez dans la figure 3.2.4,1,2 la tension de sortie qui en résulte. 

Le signal de sortie résultant convient parfaitement à la commande de la 
tête de lecture/écriture. Si la tension de sortie du flip-flop est high, 
un courant électrique traverse la bobine dans une direction, la couche 
magnétique de la disquette est magnétisée dans une direction. Si 
cependant la tension de sortie du flip-flop se modifie, la direction du 
courant dans la bobine s'inverse également, ce qui entraîne également une 
inversion de la direction de magnétisation de la disquette. 
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1) IMPULSIONS DE FREQUENCE 


2) HIGH-BIT 







3) LOW-BIT, NON ENREGISTRE 
4) UNE CELLULE DE BIT = 2 UNITES D'HORLOGE 
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FIGURE 3,2,4,1,1 


DÉROULEMENT DU SIGNAL SUR LA TETE DE LECTURE/ECRITURE LORS 
DE L'ECRITURE (DENSITE SIMPLE) 


FIGURE 3.2,4,1,2 
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Si les données sont ainsi enregistrées, avec des différences low-high, Ia 
disquette contient ensuite plusieurs petits aimants qui sont magnétisés 
dans l'une ou l’autre direction, en fonction de l'enregistrement, La 
figure 3,2,4,1,3 représente graphiquement cette disposition des aimants 
les uns à la suite des autres, 








FIGURE 3.2.4,1,3 


Mais que se passe-t-il lors de la lecture des données? Nous avons dit que 
la disquette est entièrement magnétisée, Les nombreux petits aimants 
défilent devant la tête de lecture grâce à la rotation de la disquette. 
Chaque modification du champ magnétique produit dans la bobine une petite 
impulsion qui peut être amplifiée et traitée. Le reste du temps le champ 
magnétique ne se modifie pratiquement pas et aucune tension n'est donc 
produite. La figure 3,2,4,1,4 représente le signal de sortie amplifié. La 
ressemblance avec la première figure n'est pas le fait du hasard. Nous 
avons à nouveau Iu entièrement les informations qui avaient été placées 
sur la disquette, 


SIGNAL DE LECTURE RENFORCE 
1) IMPULSIONS DE FREQUENCE 
2) HIGH-BIT 


3) LOW-BITS, PAS DE MODIFICATION DANS L'ALTERNANCE DU 
COURANT 
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FIGURE 3,2,4,1.4 
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L'électronique d'évaluation n'a ainsi affaire, avec ce procédé, qu'à deux 
durées différentes, La première durée, la plus longue est celle entre 
deux impulsions de fréquence, elle marque les low bits, La seconde durée, 
la plus courte correspond au délai entre impulsion de fréquence et 
impulsion de données, elle marque les high bits, Comme les durées sont 
respectées avec une assez grande précision, les impulsions de données 
peuvent être séparées des impulsions de fréquence avec des branchements 
mono-flop simples puisqu'il y à toujours une fréquence disponible pour la 
Synchronisation. 


Encore un mot sur les durées qui apparaissent: une impulsion de fréquence 
dure toujours 500 nanosecondes (un demi millionième de seconde), le délai 
entre deux impulsions de fréquence est de 8 microsecondes, L'écriture ou 
la lecture d’un octet avec le procédé ainsi décrit nécessite donc 8 * 8 - 
64 microsecondes, Avec une durée nominale de rotation de la disquette de 
200 miliisecondes, on peut donc placer sur la disquette 40 (pistes) * 200 
(millisecondes) / 64 (microsecondes par octet) = 125000 octets, 


Et pourtant vous disposez sur votre disquette d'environ 40000 à 50000 
octets de plus? C'est vrai, nous vous avons présenté en premier le format 
en densité simple ou format MF. En partant du format que nous venons de 
décrire, nous allons maintenant décrire le format MFM ou format en double 
densité qui est utilisé sur le CPC, 


Quelques ‘’cerveaux' n'étaient pas satisfaits du procédé que nous venons 
de décrire. On continua à fouiner jusqu'à ce qu’on développe un procédé, 
certes plus compliqué, permettant de presque doubler la capacité mémoire 
disponible, On partit pour cela de l'idée qu'il devait être possible de 
renoncer aux impulsions de fréquence, même si cela n'est pas entièrement 
possible, L'enregistrement des high bits ne crée pas de difficultés 
particulières puique chaque bit 1 à enregistrer produit sur la disquette 
une inversion de flux. Malheureusement, il faut également pouvoir 
enregistrer également des bits zéro, Et quand plusieurs bits zéro se 
suivent, la Synchronisation devient très difficile. 

La solution consiste à enregistrer simplement des bits de fréquence 
lorsque plusieurs zéros se suivent. Ce sont à nouveau les durées qui 
peremettent de distinguer entre Iles bits de données et les bits de 
fréquence, I] faut toutefois distinguer maintenant trois durées 
différentes, Les durées possibles sont représentées graphiquement dans 
les figures 3,2,4,1,5 et 3.,2,4.1.6, La première figure représente les 
informations en entrée, la seconde représente l'enregistrement sur la 
disquette, 


+ 109 


1) HIGH-BIT 
2) LOW-BIT, pas d'enregistrement 


3) BIT DE FREQUENCE, lorsque plus d’un low-bit doivent 
être enregistrés 


4) 1 CELLULE DE BIT = 1 UNITE D'HORLOGE 
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FIGURE 3,2;:4,148 


DÉROULEMENT DU SIGNAL SUR LA TETE DE LECTURE/ECRITURE LORS 
DE L'ECRITURE (DOUBLE DENSITE) 


FIGURE 3,2,4,1,6 
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“Une unité de temps simple est constituée par le temps qui s'écoule entre 
deux 1 consécutifs, une durée double caractérise la séquence de bits 
1-0-1, Si plusieurs zéros se suivent, la troisième durée possible est 
utilisée, Cette durée d'une unité et demi signale Ile passage d'une 
impulsion de fréquence à une impulsion de données ou inversement. 


Malheureusement les graphiques ne montrent pas très bien l'avantage 
immédiat du procédé MFM, du fait de l'échelle choisie. Essayez de vous 
représenter que la division du temps n'est pas la même dans les deux 
représentations graphiques. Si l'on se représente en effet que 
l'enregistrement physique avec ce procédé travaille avec le même nombre 
de changements de flux possibles, c'est-à-dire avec le même nombre de 
modifications possibles du champ magnétique, on obtient en fait un 
doublement de la capacité de la disquette. 

IL est évident qu'avec ce procédé l'électronique d'évaluation doit être 
nettement plus précise qu'avec le format MF plus simple. Sur le CPC, 
l'évaluation est effectuée de façon extrêmement fiable par le séparateur 
de données dont nous avons déjà parlé, 


Reste cependant encore une question. Comme une disquette formatée en 
format MF a une capacité de 125000 octets, une disquette écrite en format 
MFM ou format double densité devrait normalement pouvoir stocker 250000 
octets. La capacité affichée n'est cependant que d'environ 182000 octets, 
Qu'est donc devenu le reste? 


3,2,4,2 GAPS, [IDs, et ADRESS-MARKS 


Dans la section précédente, nous avons d'abord subdivisé la disquette en 
différentes pistes, Cela était rendu nécessaire par l'utilisation d'un 
moteur de pas pour la commande de la tête, Dans la présente section, nous 
allons diviser la disquette comme un gâteau, en différentes sections, les 
secteurs, 

Si nous ne faisions pas cette subdivision, nous pourrions difficilement 
placer sur une piste plus d'un fichier, Et un fichier occuperait toujours 
une piste entière avec ses 6250 octets, quelle que soit la place 
effectivement nécessaire pour le fichier. Il s'agit |à bien sûr d'un 
procédé très peu économe, surtout pour les fichiers de très petite 
taille, Pour la gestion des fichiers séquentiels, il faudrait en plus 
disposer dans l'ordinateur au moins un buffer d’une capacité de 6250 
octets, Pour lire un fichier et écrire simultanément dans une autre 
fichier, le besoin de place mémoire s'élèverait même à 12500 octets, Il 


AS 


s'agit d’une dépense de place mémoire considérable, même pour des 
ordinateurs d'une capacité de 64K. 

Comme on voit, l'idée de subdlviser en zones plus petites est très 
intéressante, Mais pour séparer ces zones nettement entre elles, il faut 
effectuer un travail relativement complexe. Ce travail occupe de la place 
sur la disquette, de sorte que ce n'est plus la capacité originelle dont 
on disposera pour la Sauvegarde des données. La première donnée est 
appelée la capacité non-formatée, la capacité effectivement disponible 
est appelée capacité formatée. 

Nous allons maintenant examiner de plus près ce formatage et la capacité 
qui en résulte. La figure 3.2.4,2,1 représente les procédés décrits ici. 
Cette figure représente le contenu complet d'une piste. 


La reconnaissance du début physique d'une piste ne pose pas de difficulté 
particulière au FDC, grâce à l'orifice d'index et à un faisceau lumineux 
bien réglé. Le faisceau lumineux d'index produit une impulsion lorsque le 
faisceau lumineux parvient au récepteur à travers l'orifice d'index, La 
fin de l'impulsion est pour le FDC le signal quil lui indique de commencer 
immédiatement le formatage, Son premier travail consiste à écrire sur la 
disquette 80 octets avec la valeur &4E, Cette zone est appelée GAP UA, 


Un GAP est, traduit littéralement, un vide. Pourquoi ce vide? La réponse 
est très simple, Le vide comble les tolérances entre les différents 
lecteurs de disquette, Malgré la haute précision incontestable des 
lecteurs de disquette, il y a malgré tout de petites différences dans le 
réglage des faisceaux lumineux d'index des différents lecteurs de 
disquette, Le GAP 4UA à été choisi suffisamment grand pour que ces 
différences de réglage ne prêtent pas à conséquence, tant qu'elles 
restent dans certaines limites. C'est ainsi que les supports de données, 
c'est-à-dire les disquettes elles-mêmes peuvent être lues et écrites sans 
difficulté sur des lecteurs différents. 

Après le GAP UA est écrite une zone SYNC de 12 octets d’une valeur de O0, 
Comme nous l'avons vu, aussi blen en format MF qu’en format MFM, c'est la 
fréquence d'horloge qui est enregistrée lorsqu'il y a plusieurs O0 qui se 
Suivent, Le terme SYNC signifie que le FDC est synchronisé avec la 
fréquence d'horloge. À la suite des 12 octets Sync, le FDC écrit trois 
octets qui sont appelés Index Adress Mark, Ces trois octets sont 
Structurés d'après un schéma très spécial et ils peuvent être reconnus 
par le FDC grâce à une électronique spéciale du chip. L'Index Adress Mark 
n'est écrite qu'une fois au début d'une piste, c'est-à-dire immédiatement 
à la suite de l’orifice d'index. Elle constitue en quelque sorte une 
marque supplémentaire du début de la piste. À la suite de l'Index Adress 
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Mark est formaté un octet avec une Valeur de 8FC puis un autre GAP, le 
GAP 1, constitué de 50 octets 8&4E, Ce GAP est nécessaire pour donner au 
FDC, lors d'une lecture ultérieure, suffisamment de temps pour le 
traitement interne de l'Index Adress Mark, Le formatage du début de piste 
caractéristique est alors achevé, Ensuite viennent des zones qui existent 
pour chaque secteur, 


Chaque secteur commence par 12 octets Sync. Comme précédemment, ce sont 
uniquement des zéros, donc uniquement les informations de fréquence, qui 
sont écrits, Les octets Sync sont suivis d'une Adress Mark, l'ID Adress 
Mark cette fois. L'ID AM a également 3 octets de long et elle peut être 
décodée électroniquement par le FDC. Après l'ID AM suit un octet d’une 
valeur de &FE. 

Jusqu'à cet endroit, tous les secteurs de la disquette sont identiques. 
Mais pour pouvoir accéder plus tard de façon sélective aux pistes et 
secteurs, il est nécessaire de les marquer, C'est exactement cette tâche 
qui est prise en charge par les quatre octets qui suivent maintenant et 
qui constituent le champ ID, Dans l'ordre d'écriture sont entrés ici le 
numéro de piste, la face de disquette (0 ou 1), le numéro de secteur et 
la taille du secteur. La dernière indication ne peut bien sûr pas être 
entrée directement car il faudrait sinon un champ de deux octets pour les 
secteurs de 512 octets de long, Le codage correspondant correspond aux 
indications qui sont faites lors du formatage, Les secteurs de 512 octets 
de long sont marqués par un 2 dans cet octet. 

On donne ainsi à chaque secteur son identification spéciale, l'ID 
secteur, Celle-ci permettra plus tard un accès sélectif, Les développeurs 
du système n'ont cependant rien laissé au hasard, Pour être protégé 
contre des erreurs éventuelles, une valeur de contrôle (checksum) de deux 
octets est formée d’après un procédé spécial à partir des trois octets de 
l'ID AM, de l'octet &8FE et des quatre octets du champ ID, Le procédé 
utilisé est appelé Cyclic Redundancy Check ou CRC, II permet une 
détection extrêmement fiable des erreurs de lecture, Les deux octets CRC 
ainsi obtenus sont placés immédiatement à la suite du champ ID. 

Pour donner au FDC suffisamment de temps pour tester les octets ID et CRC 
lors d’une lecture ultérieure des données, vient ensuite d’abord un autre 
GAP, le GAP 2 d'une longueur de 22 octets, Sur ce GAP également, la 
valeur de données employée (qui n'a d'ailleurs pas d'importance) est à 
nouveau &UE, Le GAP 2 a une signification supplémentaire, Toutes les 
données d'un secteur seront écrites à la suite du GAP 2 JIors de 
l'écriture ultérieure d'un secteur. Le GAP 2 permet au FDC d'effectuer la 
commutation entre lecture et écriture, une procédure qui prend toujours 
un certain temps, 
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Avez-vous deviné ce qui vient après le GAP 2? Exact, c'est une zone Sync 
de 12 octets zéro qui annonce enfin le début de la zone des données 
proprement dite, Mais les données ne sont pas encore écrites sur la 
disquette. Un Sync est en effet toujours suivi d’une zone Adress Mark. 
L'AM qui est maintenant formatée est la DATA Adress Mark qui a la même 
Structure que l’ID AM et qui peut donc également être décodée par le FDC. 
Pour la distinguer de l’ID AM, la DATA AM est cependant suivie d’un octet 
d'une valeur &gFB, 

Et c'est maintenant que tout commence, Enfin vient la zone des données 
qui est remplie lors du formatage avec la valeur de l’octet de 
remplissage, La taille de cette zone est variable mais elle est fixée 
lors du formatage dans les indications qui sont fournies au FDC, C'est 
ainsi que sont possibles des zones de données d'entre 128 et 4096 octets, 
Dans ce dernier cas cependant, on ne peut placer qu’un seul secteur sur 
une piste, de sorte qu'on utilise presque toujours des tailles de secteur 
plus réduites. Sur le CPC, la taille de secteur est fixée à 512 octets, 
Une valeur de contrôle de deux octets est également formée d'après le 
procédé CRC à travers la zone de données, Pour détecter également des 
erreurs dans l’ID DATA, ces octets sont inclus dans la formation du CRC, 
de sorte qu'avec une longueur de secteur de 512 octets, ce sont en tout 
516 octets qui sont vérifiés, La fin d'un secteur est constituée par le 
GAP 3, La longueur de ce gap peut être indiquée lors du formatage. Sur le 
CPC, 82 octets &4E sont écrits lors du formatage, Ce gap a une 
Signification tout à fait particulière, Si en effet de nouvelles données 
sont écrites plus tard sur les secteurs d'une disquette formatée, il est 
extrêmement improbable que la disquette tourne exactement à la même 
vitesse que lors du formatage, Or si la vitesse de rotation est ne 
serait-ce que légèrement supérieure, l'arc de cercle nécessaire pour le 
Secteur sur la piste sera obligatoirement plus grand puisque la vitesse 
d'enregistrement est constante, S'il n'y avait pas le GAP 3, un tel 
enregistrement plus long pourrait tout simplement effacer un ID secteur 
venant immédiatement à la suite et le secteur suivant ne serait plus 
lisible, Les différences de longueur des secteurs produites par Îles 
variations de la vitesse peuvent cependant être neutralisées par le GAP 3 
bien que le GAP 3 soit également produit lors de l'écriture d’un secteur. 
Cependant la longueur du GAP produit lors de l'écriture d'un secteur est 
considérablement réduite. En effet, 42 octets GAP seulement sont écrits, 
de sorte qu'il reste une marge suffisante pour les différences qui 
peuvent se produire, 

Le secteur est alors entièrement formaté, le FDC demande maintenant les 
valeurs pour le prochain secteur et les écrit également sur la disquette. 
Quand tous les secteurs ont ainsi été formatés les uns à la suite des 
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autres, des octets GAP sont alors écrits jusqu’à ce que l'impulsion 
d'index apparaisse, Quand se produit l'impulsion d'index, le formatage de 
cette piste est terminé. 


Comme on voit, le FDC a beaucoup à faire pour préparer une piste à être 
utilisable. D'autres FDC que le 765 sont loin d'être aussi prévenants. 
C'est ainsi par exemple que les disk controllers souvent utilisés de la 
série 197x ont par exempie besoin que presque chaque octet leur soit 
envoyé par le processeur, le programme de formatage devient alors très 
compliqué et long, Le soutien important qu'apporte le 765 transforme 
presque le formatage avec ce FDC en jeu d'enfant. 
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CHAPITRE 4: LA ROM ET LA RAM DE L'AMSDOS 


Nous reconnaissons volontiers qu’il n'est pas donné à tout le monde 
d'étudier les détails internes d'un système d'exploitation. Beaucoup de 
possesseurs d'ordinateur sont totalement satisfaits si les programmes 
existants fonctionnent sans erreur et de façon fiable. Ces utilisateurs 
d'ordinateur peuvent en toute quiétude sauter le présent chapitre. Si 
cependant un jour les possibilités disponibles avec AMSDOS ne suffisent 
plus pour certaines tâches déterminées, le listing de la ROM peut être 
d'un très grand secours. La gestion de fichier relatif présentée dans cet 
ouvrage n'aurait par exemple pas pu être programmée sans une connaissance 
précise de la ROM. Pour tous ceux qui veulent abandonner les sentiers 
battus et se jeter dans le chaos des bits et des octets, une sorte de 
carte d'état-major peut se révéler extrêmement utile, Vous pouvez 
utiliser le listing de la ROM ainsi que les indications sur 1a RAM 
système en guise de carte d'état-major, Grâce à elle vous vous orienterez 
certainement plus aisément dans le système d'exploitation que Si vous 
deviez chercher de nouvelles voies sans point de repère. 


Nous regrettons les tâches blanches qui figurent encore sur cette carte 
d'état-major. Mais si vous étudiez le listing de façon approfondie, vous 
comprendrez peut-être que, même après deux mois de travail intensif sur 
le listing de la ROM, nous n'ayons pas pu élucider toutes les énigmes de 
l'AMSDOS,. Le style de programmation des programmeurs de l'’AMSDOS est 
parfois ‘vraiment décapant’! 


4,1 LA RAM SYSTEME DE L'AMSDOS 


Comme vous le savez, après la mise sous tension du lecteur de disquette 
et du CPC, vous disposez d'une mémoire de 42249 octets pour les 
programmes Basic, Sans le lecteur de disquette, c'est-à-dire quand AMSDOS 
n'a pas été activé, ce sont cependant 43533 octets dont vous disposez 
comme le CPC vous l'indique si vous le lui demandez, La différence de 
1284 octets n'est cependant pas entièrement à mettre à la charge du 
lecteur de disquette. Celui-ci Se réserve cependant le plus grand morceau 
lorsqu'il est mis sous tension, soit 1024 octets, Cette zone de 1024 
octets commence habituellement en &A700. Cette jimitation a Sa raison 
particuiière dans la gestion des ROMS externes par le CPC, Le CPC peut 
gérer en tout 252 ROMS externes dans la zone de mémoire de &CO00 à &FFFF, 
Il faut à cet égard distinguer trois différents types de ROMS, les ROMS 
de premier plan, Iles ROMS de second plan et les ROMsS d'extension, C'est 
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le premier octet (&CO00) de chaque ROM qui détermine le type d'une ROM 
donnée, 

Après la mise sous tension, on teste d'abord si une ROM externe de 
premier plan se trouve sur le CPC avec l'adresse 9, On effectue dans ce 
put un OUT &DF00,0, Si le système d'exploitation constate qu'il ‘se 
passe’ quelque chose à cet endroit, la Rom externe est initialisée et 
prend ainsi le contrôle de la machine, Si cependant aucune Rom externe ne 
se trouve sur le port d'extension avec cette adresse de sélection de ROM, 
alors la ON Board ROM, le Basic, est initialisée comme ROM O0, Après 
l'initialisation, le programme de premier plan activé doit activer 
d'éventuelles ROMS de second plan. Chaque adresse de sélection de ROM, en 
commençant par l'adresse ROM 7 est alors interrogée à cet effet, pour 
savoir si une telle ROM de Second plan existe, Dans le cas où existe une 
telle ROM, celle-ci est alors automatiquement initialisée. 

Si lors de la mise sous tension de l'ordinateur une autre ROM que la ROM 
de premier plan intégrée a pris le contrôle du CPC, elle est alors libre 
de se réserver une zone de la RAM comme mémoire de travail, Elle peut par 
exemple décaler à cet effet vers le bas la limite supérieure de Ia RAM, 
c'est-à-dire le HIMEM. Lors de la réservation ultérieure de la mémoire 
pour AMSDOS, Ia mémoire occupée par AMSDOS sera alors également décalée, 
Dans ce cas, la RAM AMSDOS pourrait par exemple commencer en &A000, 

Cette flexibilité de l'ordinateur a bien sûr également un inconvénient. 
Toutes les indications d'adresses que nous allons vous donner par la 
suite sur la zone commençant en &A/00 n'ont pas de valeur absolue. Dans 
les conditions que nous venons de décrire, ces adresses peuvent en effet 
fort bien être situées dans une autre zone. Si l'on veut donc organiser 
des programmes avec accès direct à la RAM AMSDOS de la façon la plus 
souple possible, il ne faut accéder aux variables que de façon indirecte. 
On doit à cet effet rechercher le début effectif de la RAM AMSDOS et 
accéder aux variables avec le décalage correspondant au début de cette 
mémoire, 

Ce qui semble un peu compliqué dans nos explications deviendra plus 
évident dans un exemple que nous vous donnerons un peu plus tard, Il nous 
faut cependant indiquer encore une autre particularité du lecteur de 
disquette ou de la RAM de Il'’AMSDOS, Il n'y a pas seulement, en effet, la 
zone de 1K que nous avons déjà décrite dans laquelle sont placées la 
plupart des variables système. Dans la zone de 8BEUO à 8BE/F, 64 autres 
octets sont utilisés pour le lecteur de disquette. Cette zone ne peut pas 
etre décalée, elle est fixée une fois pour toutes, 

Cette zone est cependant quelque peu menacée. La pile du processeur est 
normalement placée de façon descendante à partir de &C000. Dans les 
programmes qui ne gèrent pas correctement cette pile, ou qui ont besoin 
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d'une très grande pile, par exemple à cause d'une programmation 
récursive, il peut parfaitement arriver que la pile devienne si grande, 
du fait d’un trop grand nombre de PUSHs ou de CALLSs, qu'elle efface une 
partie de la zone mémoire du lecteur de disquette. Dans le premier cas, 
il faut corriger au plus vite le programme. Dans le second cas, il faut 
placer la pile dans une autre zone de la mémoire, 


Mais venons-en maintenant à la liste de ces 64 octets, pour autant que 
nous en ayons compris la signification, 


LISTE DE REFERENCE RAM SYSTEME BE4O à BE/F 


BEUO, BE4] Vecteur sur header paramètres disquette, lecteur À 
BEU?2, BEU3 Vecteur sur bloc paramètres disquette, lecteur À 


BEUU, BEUS Délai d'attente après MOTOR ON 


BEU6, BE47 Temps de fin de rotation du moteur du lecteur de disquette 
après le dernier accès 

BEU8 Valeur pour boucle d'attente lors du formatage d'une piste 

BEUS, BEUA Valeurs pour une longue boucle de temporisation 

BEUB Nombre d'octets pour lecture de l’état d'interruption 

BEUC-BES2 Buffer pour octets de la phase résultat du FDC 

BES3 Lecteur (CHS/US) 

BES4 Piste 

BES5S5 Enregistrement 

BE56 Lecteur (HS/US) 

BE57 Piste 

BES58 Enregistrement 

BE59 Nombre d'enregistrements par piste (masque de bloc + 1) 

BESA Lecteur (HS/US) 

BESB Piste 

BESC Enregistrement 

BESD 

BESE Flag lire/écrire secteur 

BESF Flag moteur marche/arrêt 

BE6O, BE61 Vecteur sur buffer 1/0 d'enregistrement 


BE62, BE63 Vecteur sur buffer I/0 de secteur 


BE64, BE65 Mémoire provisoire de la pile 
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BE66 Nombre de tentatives de lecture 


BE67, BE6C Tick block 

BE6/, BEG68 Ticker Chain, chaîfnage de la liste ticker 

BE69, BEGA Ticker count, nombre des tickers, pour  expulser 
l'évènement 

BE6B, BE6C Reload Count 


BE6D, BE73 Event bIock 
BE6D, BEGE Event Chain, chaînage des évènements 


BE6F Event Count 

BE70 Event Class 

BE/1, BE72 Adresse de la routine EVENT 

BE/3 ROM select de la far adress pour la routine Event, 
BE/4 Buffer pour le numéro de piste voulu 

BE75 Buffer pour code d'opération à envoyer au FDC 


BE/76, BE/7 Vecteur Sur buffer 1/0 de secteur 
BE78 Flag pour messages d'erreur du controller ON/OFF 


BE79, BE/C Non-utilisé dans la version actuelle d'AMSDOS 


BE/D, BE/E Mémoire IY, Iow adress memory pool pour le lecteur de 
disquette 
BE7F Vecteur pour la manipulation des routines disque (DISC OUT 


OPEN etc.), normalement &C9, RETurn. 


Il nous faut encore faire quelques remarques sur ces adresses, Comme il 
s’agit d'adresses absolues, comme nous l'avons déjà indiqué, et que leur 
Situation dans la zone d'adresses ne change pas, il est possible 
d'intervenir ici par de Simples POKES. Toutefois certaines variables ne 
sont modifiées qu’au cours du déroulement de routines disque, de sorte 
qu'on ne peut y intervenir utilement à partir du Basic. Il est toutefois 
possible d'intervenir de façon importante en d’autres endroits par 
quelques POKES, 

Essayez par exemple de POKEr une Valeur de 1 dans la case mémoire &8BE4S5, 
Entrez ensuite IT'instruction CAT, L'effet est surprenant, Si vous avez 
assez de patience, vous obtenez un CATalogue tout à fait normal. Cela 
aura toutefois duré beaucoup plus longtemps que d'habitude, Les valeurs 
des cases mémoire 8&BE44 et 8BEUS déterminent en effet le temps d'attente 
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après la mise en marche du moteur, On attend normalement environ une 
seconde mais nous avons considérablement augmenté cette durée. 


Vous pouvez obtenir par des POKES dans les cases mémoire 8&BE46/&BE4/7 une 
autre manipulation de durées qui peut être très intéressante dans 
certains cas, Les valeurs de ces cases mémoire déterminent le temps de 
fin de rotation des moteurs du lecteur de disquette après le dernier 
accès à la disquette, I] peut cependant parfaitement arriver lors de la 
lecture et du traitement des données d'un fichier, que ce délai soit 
justement en train de S'écouler, Le moteur est alors à nouveau mis en 
marche pour le prochain accès mais on attend encore à nouveau une seconde 
pour que le moteur arrive à plein régime. Si le temps de fin de rotation 
est tellement allongé que le moteur ne s'arrête plus entre les différents 
accès, on peut constater un net accroissement de la vitesse de 
traitement. Essayez donc vous-même, 


Les octets des adresses &BE4C à &BES2 sont également très intéressants, 
C'est ici que sont placées les indications de la phase résultat après 
toutes les opérations du FDC. Vous pouvez interpréter vous-même à votre 
guise ces valeurs, ce qui est extrémement important dans le cas où on 
interdit les messages d'erreur du controller, 


Nous arrivons maintenant à la prochaine case mémoire, &BE/78, que nous 
avions déjà évoquée, Si une valeur de &FF est entrée ici, les messages 
d'erreur du FDC ne Seront pas sortis sur l'écran, Dans ce cas il vous 
faut réagir vous-même aux erreurs, au vu des octets de la phase résultat. 


Les cases mémoire &BE/D et &BE/E sont très importantes pour l'accès à la 
zone RAM décalable de 1K de l'’AMSDOS, C'est ici qu'est rangée l'adresse 
de départ de cette zone de 1K, Ici figure normalement l'adresse &A700,. 
Si cependant Ile début de la RAM AMSDOS est modifié pour une raison 
quelconque, c'est dans ces cases mémoire que vous trouverez l'adresse de 
départ correcte, 


La case mémoire 8&BE/F est certainement très intéressante pour les grands 
experts, Vous trouvez ici normalement la valeur &C9, C'est le code 
d'opération Z80 pour RElurn, Chaque accès aux routines CAS détournées 
passe par ce RElurn, Vous avez ainsi une possibilité très simple pour 
intervenir aussi bien avant qu'après l'exécution des routines. I] est 
certes également possible de détourner encore une fois les routines CAS 
détournées, c’est-à-dire de leur fournir les adresses de vos propres 
routines, mais ce procédé est très compliqué. 
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Mais venons-en maintenant à la partie de loin la plus vaste de la Ram 
système. Dans la présentation suivante, nous sommes parti du principe 
qu'aucune extension n'est connectée. Nous nous référons ainsi aux 
adresses de la zone commençant en 8&A700, 

Ceux d'entre vous qui sont des experts ès CP/M devront toutefois chercher 
un peu par eux-mêmes, l'organisation de la RAM nécessaire pour le BIOS 
est ici quelque peu différente, C'est ainsi que les FDCs figurent aux 
adresses standard (8&5C à &/C), Les headers de paramètres de disque 
figurent dans la mémoire à partir de &AE58, les blocs de paramètres de 
disque à partir de &ADD8. 


LISTE DE REFERENCE RAM SYSTEME A700 à AA8O 


A/00 lecteur appelé 
A/01 user appelé 
A/02 lecteur actif 


A703, A/04 pointeur sur le header de paramètres de disque (A910/A920) 
lecteur actif 


A705 flag si OPEN actif sur lecteur appelé 


A706, A707 mémoire provisoire pour pointeur de pile pour toutes les 
routines logiques 


A708, A/72B bloc de contrôle de fichier supplémentaire pour OPENIN 
A/09-A728 buffer bloc de contrôle de bloc (FCB) OPENIN 
A708 flag pour OPENIN 


ff= pas d'OPENIN actif 
00= OPENIN sur lecteur À 
01= OPENIN sur lecteur B 


A709 numéro user pour OPENIN 

A70OA-A714 nom de fichier pour OPENIN, 8 caractères nom de fichier, 3 
caractères extension 

A715 &00 première entrée sinon numéro de l'extension 

A716 &00 

A717 800 

A718 nombre d’enregistrements de cette extension 

A719-A728 numéros des blocs de cette extension 

A/729-A72B nombre d’enregistrements Ius jusqu'ici pour ENTREE 
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A72C-A7UF 


A72D-A7UC 
A72C 


A72D 
A72E-A738 


A739 
A73A 
A73B 
A73C 
A/35D-A7UC 
A/4D-A74F 


A750-A799 


A750 


A751-A752 
A/753-A754 
A755 

A756-A764 


A765 
A766 
A767 
A/68-A769 
A/6A-A76B 
A76C 
A/76D-A76E 
A76F-A770 
A771-A794 
A795-A797 
A798-A799 


A/9A-A7E3 


bloc de contrôle de fichier supplémentaire pour OPENOUT 


buffer bloc de contrôle de bloc (FCB) OPENOUT 

flag pour OPENOUT 

ff-= pas d'OPENOUT actif 

O0= OPENOUT sur lecteur À 

01= OPENOUT sur lecteur B 

numéro user pour OPENOUT 

nom de fichier pour OPENOUT, 8 caractères nom de fichier, 
3 caractères extension, complété avec des espaces 
&00 première entrée sinon numéro de l'extension 
&00 

&00 

nombre d'enregistrements de cette extension 
numéros des bIocs de cette extension 

nombre d'enregistrements lus jusqu'ici pour SORTIE 


header de fichier OPENIN 


1 = Disk In Char 

2 = Disk In Direct 

vecteur sur début du buffer OPENIN de 2K 

vecteur sur caractère actuel dans le buffer OPENIN 

numéro user du fichier, élément du nom de fichier 

nom de fichier pour le header de fichier, complété avec 
des zéros 

numéro de bIoc 

dernier bIoc 

type de fichier fichier ENTREE 

longueur de données 

emplacement de données 

premier bloc 

longueur logique 

adresse Entry 

champs user libres pour l'utilisateur 

compteur sur trois octets nombre de caractères Ius 

valeur de contrôle sur deux octets formée sur le header 
fichier OPENIN (A755-A797) 


header de fichier OPENOUT 
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A7 JA 


A79B-A7/QC 
À/9D-A7 dE 
À79F 

A/AO-A7AE 


A7AF 
A/BO 
A/B1 
A/B2-A/B3 
A/B4-A7B5S 
À/B6 
A/B/-A/B8 
A/B9-A/BA 
A/BD-A/BE 
A/BF-A7C0 
A7C1-A/DE 
A/DF-A7/ET 
A7E2-A7E3 


A/EU-A8E3 


A8/4-A88A 


A88B-A88D 


A890-A8A8 


A890, A891 
A892 
A893 
A894 


1 Disk Out Char 

2 = Disk Out Direct 

vecteur sur début du buffer OPENOUT de 2K 

vecteur sur caractère actuel dans le buffer OPENOUT 
numéro user du fichier, élément du nom de fichier 

nom de fichier pour le header de fichier, complété avec 
des zéros 

numéro de bloc 

dernier bloc 

type de fichier fichier SORTIE 

longueur de données 

emplacement de données 

premier bloc 

longueur logique 

adresse Entry 

longueur du bloc de données pour Disk Out Direct 
adresse Entry pour Disk Out Direct 

champs user libres pour l'utilisateur 

compteur sur trois octets nombre de caractères écrits 
valeur de contrôle sur deux octets formée sur le header 
fichier OPENOUT (A79F-A7E1) 


buffer temporaire/buffer d'enregistrement 

Ce buffer est utilisé aussi bien comme buffer 
d'enregistrement que comme buffer pour vérifier et étendre 
le nom de fichier entré, 


buffer pour les vecteurs cassette qui sont à nouveau 


rétablis dans BC/77,,, par l'instruction ITAPE 


far address pour les vecteurs cassette détournés. 
Nécessaire pour l'emploi de RST 4, Pointe sur CD30 de la 
ROM 7, 


bloc paramètres de disque supplémentaire lecteur À 


SPT enregistrements par piste (36) 

BSH Block SHift (décalage de bloc) (3) 

BLM BLock Mask (masque de bloc) (7) 

EXM EXtend Mask (masque supplémentaire) (0) 
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A895, A89%6 
A89/, A898 


A899, A89A 
A89B, A89C 
A89D, ASE 
A89F-A8A8 
A89F 

A8A0 

A8A1 

A8A2 

A8A3 

A8AU 

A8AS 

A8A6 

A8A7 

A8A8 
A8A9-A8B8 


A8B9-A8CE 


A8DO-A8E8 


A8SE9-A8F8 


A8F9-A9CE 


A910-A91F 


A910-A911 
A912-A913 


DSM nombre de blocs maximal (1/0) 

DRM nombre maximal d'entrées dans le catalogue -1 
(63) 

ALO, 1 taille catalogue (CO00) codée en binaire, 
correspond à deux blocs 

CKS nombre des entrées à vérifier dans le catalogue 
(0010) 16 entrées 

OFF décalage de piste (2) pistes système occupées 


paramètres FDC 


FSC premier secteur de chaque piste (841) 

PSI secteurs physiques par piste (9) 

GPS longueur gap 3 pour lecture/écriture secteur 
(&2A) 

GPT longueur gap 3 pour formatage piste (&52) 

FLB octet de remplissage pour formatage piste (&E5) 

BPS octets par secteur (2) correspond à 512 octets 

RPS enregistrements par secteur (4) 


buffer pour piste actuelle 
flag pour chercher piste 0, read/write recalibrate 
flag, si login doit se produire à chaque accès disque 


CSA 16 octets pour les valeurs de contrôle 
ALT 22 octets table d'affectation, affectation blocs 
lecteur À 


bloc paramètres de disque supplémentaire lecteur B 
affectation comme DPB lecteur À 


CSA 16 octets pour les valeurs de contrôle 
ALT 22 octets table d'affectation, affectation blocs 
lecteur B 


header paramètres disque lecteur À 
XLT table de conversion Sken Factor (inutilisée) 


TRACK mémoire BIOS piste actuelle, Attention! Est 
utilisé par AMSDOS comme DIRNUM 
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A914-A915 SECTOR mémoire B10S pour secteur actuel 

A916-A91/ D IRNUM mémoire B10S pour numéro DIR actuel 

A918, A919 D IRBUF pointeur sur buffer 1/0 de 128 octets (A930) 

A91A, A9IB DPB pointeur sur DPB lecteur À (A890) 

A91C, A91D CSV pointeur sur mémoire pour formation valeur de 
contrôie (A8A9) 

A91E, A91F ALV pointeur sur table d'affectation (A8B9) 

A920-A92F header paramètres disque lecteur B 

A910-A921 XLT table de conversion Skenw Factor (inutilisée) 

A922-A923 TRACK mémoire BIOS piste actuelle, Attention! Est 
utilisé par AMSDOS Comme DIRNUM 

A924-A925 SECTOR mémoire BI10S pour secteur actuel 

A926-A927 D'IRNUM mémoire BIOS pour numéro DIR actuel 

A928, A929 D 'IRBUF pointeur sur buffer 1/0 de 128 octets (A930) 


A92A, A92B DPB 
A92C, A92D CSV 


pointeur sur DPB lecteur B (A8D0) 
pointeur sur mémoire pour formation valeur de 
contrôle (A8E9) 


A92E, A92F ALV pointeur sur table d'affectation (A8F9) 


A930-A9AF D IRREC buffer de 128 octets pour un enregistrement 
catalogue, Est transféré du secteur DIR à ici 
A9BO-ABAF SECBUF buffer pour le transfert physique de données 


vers et à partir du lecteur de disquette 


Pour ces adresses également, cela vous ‘démange’ certainement d'observer 
l'effet de fa manipulation de certaines de ces cases mémoire, Ne vous 
gênez surtout pas, il ne peut bien sûr rien arriver à l'ordinateur, comme 
vous le savez, Toutefois il n’est pas particulièrement recommandé de 
faire vos premiers essais en plaçant dans le lecteur, sans protection 
contre l'écriture, une de vos disquettes préférées, Une fois que les 
données qui figuraient sur une disquette sont détruites, il est trop tard 
pour penser à faire ce fameux backup que vous avez indéfiniment reporté à 
plus tard, 


Si l’on examine précisément cette zone mémoire, on peut nettement dégager 
les limites de différentes sections, Nous avons doté ces sections de noms 


or 


qui ne sont cependant certainement pas connus de tous les lecteurs. Nous 
avons tiré ces noms de CP/M car beaucoup de sections de données ont des 
fonctions identiques à celles de sections comparables de CP/M, C'est 
ainsi que les sections Disc Parameter Header et Disc Parameter Block se 
présentent (presque) exactement sous cette forme dans CP/M. Tout 
ordinateur CP/M a des DPBS et des DPHs, 

Les FDC, les File Control Blocks sont également utilisés dans CP/M, 
Toutefois certaines sections ont été étendues sous AMSDOS, Un DPB CP/M 
Standard ne comprend que les 15 octets SPT à OFF, les extensions sont 
particulières à l'’AMSDOS et ne peuvent être transférées sur d'autres 
ordinateurs CP/M, ni même sur le CP/M du CPC, Les header de fichier pour 
OPENOUT et OPENIN sont également particuliers à 1'’AMSDOS,. 
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4.2 LE LISTING DE LA ROM DE L'AMSDOS 


Vous trouverez sur les pages suivantes le Jisting de la ROM de l'AMSDOS. 
La ROM de Il'AMSDOS contient toutes les routines nécessaires à 
l'exploitation du lecteur de disquette. Mais elle ne contient pas que 
cela, Comme nous l'avons déjà indiqué, 1'’AMSDOS n'occupe même pas la 
moitié des 16K disponibles dans la ROM, 8K entiers sont occupés par une 
partie du LOGO qui est fourni avec le lecteur de disquette, Cela divise 
donc par deux la zone disponible. 

Cette zone LOGO n'a pas été imprimée dans le listing suivant, pour 
plusieurs raisons. D‘une part c’est un livre sur le lecteur de disquette 
et non un livre sur LOGO que vous avez entre les mains, D'autre part la 
partie de LOGO figurant dans cette ROM n'est qu'une petite partie de 
l'interpréteur LOGO complet. Vous trouverez 32K supplémentaires de ce 
langage de programmation par ailleurs très intéressant sur la disquette 
système du CPC. Si donc nous imprimions et commentions la partie de LOGO 
située dans la ROM, personne ne pourrait en tirer quoi que ce soit car il 
s'agit d’une partie trop restreinte de l'interpréteur complet. 


Mais même les &8K restants ne sont pas complètement utilisés par AMSDOS, 
1024 octets de la zone de 8&DC00 à &DFFF ne sont absolument pas utilisés, 
Cette zone a été peut-être prévue pour des extensions ultérieures de 
l'AMSDOS, Nous n'avons plus maintenant que /7K qui ne sont cependant 
touJours pas entièrement à la disposition de l1'AMSDOS, Des sections de 
CP/M Sont également intégrées dans cette zone. CP/M et AMSDOS utilisent 
ainsi ensemble de nombreuses routines de ia ROM alors que d'autres sont 
par contre exclusivement utilisées par CP/M ou par AMSDOS, C'est ainsi 
que sont intégrés dans la ROM deux programmes complets de commande pour 
deux interfaces sérielles qui peuvent être affectés sous CP/M de 
différentes façons aux différents périphériques à travers l'octet 1/0, 


Un examen du listing révèle qu'une fois retirées toutes les sections de 
mémoire qui sont exclusivement utilisées par CP/M, il ne reste qu’à peine 
6K pour l'AMSDOS, Mais voyez plutôt par vous-même comment ces 6K sont 
construits, 


UiRR 


ete Préfixe pour ROM CPM 


CO00 01 DEFB 01H :ROM Type, Background ROM 
C001 00 DEFB 00H ;ROM Mark Number 

CO02 05 DEFB OSH :ROM Version Number 

C003 00 DEFB OCH ;ROM Modification Level 


ROOREREEREEE Agresse de la table d'instructions 
CO04 72C0 DEFW 0C072H 


CRRHRESERLESHES R]0C Jump instructions AMSDOS 


C006 C3BCCI JP 0C1BCH ;CPM ROM 

C009 C3B2C1 JP 0C1B2H ; CPM 

CO0C C3D1CC JP OCCD1H 3DISC 

CO0F C3D5CC JP OCCDSH >DISCIN 

C012 C3E4CC JP OCCEUH ; DISCOUT 

C015 C3FDCC JP OCCFDH ; TAPE 

C018 C301CD JP OCDOTH ; TAPEIN 

C01B C318CD JP 0CD18H > TAPEOUT 

COIE C3DACD JP OCDDAH ;À: 

CO21 C3DDCD JP OCDDDH ;B: 

CO24 C3E4CD JP OCDEUH > DRIVE 

C0O27 C3FECD JP OCDFEH ; USER 

CO2A C32ED4 JP OD42EH 3DIR 

CO2D C38AD4 JP ODUS8AH > ERA 

C030 C3C4D4 JP OD4CUH ; REN 

VNOVSNESERENSES P]OC Jump instructions disc controller 

C033 C3/2CA JP OCA72H ;:°81 enable/disable messages d'erreur 
C036 C3ODC6 JP OC60DH ;°82 indiquer données disque 
C039 C381C5 JP 0C581H :°83 déterminer format disque 
CO3C C366C6 JP OC666H ; "84 lire secteur 

CO3F C3SUECE JP OCGUEH ; 85 écrire secteur 

C042 C352C6 JP 0OC652H ;:°86 formater piste 

CO45 C363C7 JP 0C763H :°87 chercher piste 

CO48 C330C6 JP 0C630H ;:°88 déterminer état disque 
COUB C303C6 JP OC603H ; "89 fixer nombre tentatives lecture 


FÉRRANENPSRNERE BIDE JUMP entrées" EP/h 
COHE C368C1 JP 0C168H 
CO51 C3DBCO JP OCODBH 


He 


EEE EEE D1OC jump routines 1/0 sérielles pour CP/M 


CO54 C389C3 JP 0C389H sinitialisation complète SIO & 8253 
C057 C301C3 JP 0C301H 

COSA C3DBC3 JP 0C3DBH ;:Canal A buffer RX plein? 
CO5D C3F7C3 JP 0C3F7H ; Canal À retirer un caractère 
CO60 C335C4 JP 0C435H >Canal A buffer TX vide? 

C063 C345C4 JP OC44SH ; Canal À envoyer un caractère 
C066 C3E3C3 JP OC3E 3H ; Canal B buffer RX plein? 
C069 C3FFC3 JP OC3FFH ; Canal B retirer un caractère 
CO6C C33AC4 JP OC43AH >Canal B buffer TX vide? 

CO6F C34BC4 JP OC4UBH ; Canal B envoyer un caractère 
AREA AATARTEEN Table des Instructions DOS 

CO72 43504D20 DEFM "CPM RO’, ‘M'+80H 

CO76 524FCD 

C079 4350CD DEFM "CP','M'+80H 

CO/C 444953C3 DEFM DIS’, 'C'+80H 

CO80 44495343 DEFM "DISC,.I’,'N'+80H 

CO84 2E4QCE 

CO87 44495343 DEFM "DISC; OL*;*"F"+80h 

CO8B 2E4FS55D4 

CO8F 544150C5 DEFM (TAP','E"+80H 

C093 54415045 DEFM "TAPE, I", 'N'+80H 

C097 2E4QCE 

CO9A 54415045 DEFM "TAPE OU”, 'T’+80H 

COSŒ  2E4FS5D4 

COA2 C1 DEFM ‘A’ +80H 

COA3 C2 DEFM B'+80H 

COA4 44524956 DEFM “DRIV','E"+80H 

COA8 C5 

COA9 S555345D2 DEFM ‘USE’, 'R'+80H 

COAD 4449D2 DEFM ‘’DI','R'+80H 

COBO 455201 DEFM ‘ER','A"+80H 

COB3 S245CE DEFM RE’, ‘N'+80H 

PRERTARARMEEER. INSTTUECLONS DISC CDACTOLIEr 

COB6 81 DEFB 01H + 80H 

COB7 82 DEFB 02H + 80H 

COB8 83 DEFB 03H + 80H 

COB9 84 DEFB OUH + 80H 

COBA 85 DEFB O5H + 80H 

COBB 86 DEFB O6H + 80H 


ir 


COBC 
COBD 
COBE 
COBF 


36H 6 6 NN 36 6 HE NN 6 


COCO 
COC3 
COCE 
COC8 
COCB 
COCC 
COCF 
CODO 
CODI 
COD5 
COD6 
COD9 


87 
88 
89 
00 


2A3900 
223EAD 
SEC 
3233AD 
AF 
3240AD 
F3 

D9 


ED433CAD 


D9 
21FAC0 
181A 


DEFB 
DEFB 
DEFB 
DEFB 


07H + 80H 
08H + 80H 
OH + 80H 
00 ;:Marque fin de la table 


sauver vecteur d'interruption et adresse de port GA 


LD 
LD 
LD 
LD 
XOR 
LD 
DI 
EXX 
LD 
EXX 
LD 
JR 


HL, (0039) ;vecteur INT (RST 7) 
(OAD3EH),HL ;ranger dans la Ram 
A,0C3H ;code d'opération JMP 
(OAD33H),A :pour module CALL 
Â 
(OAD4OH), A 
>sinterdire INT pour utilisation 
:du jeu de registres alternatif 
(OAD3CH),BC ;:sauver adresse port GA et config ROM 
restaurer jeu de registres altern, 
HL, OCOF AH 
OCOF SH 


RE LE LR LL LES LL LLLSLLLLELLLLLLLLSLSLLLLRLLLLLLLLLLLLLLLILLLLLILSL.. 


CODB 
CODE 
CODF 
COEO 
COE1 
COE2 
COE3 
COE4 
COES 
COE6 
COE8 
COE9 
COE A 
COEB 


COEF 
COFO 
COF1 
COF2 
COF5 
COF8 
COF9 


2140AD 
BE 
C8 
C5 
46 
77 
B/ 
78 
C1 
28€ 7 
F3 
08 
D9 


EDAB3CAD 


213201 
223H4AD 
FB 
cs 


LD 
CP 
RET 
PUSH 
LD 
LD 
OR 
LD 
POP 
JR 
DI 
EX 
EXX 
LD 


OR 
EX 
EXX 
LD 
LD 
EI 
RET 


HL, OADAOH 
(HL) 
pl 
BC 
B, CHL) 
(HL),A 
Â 
A,B 
BC 
Z,OCOCFH 
>nécessaire pour utiliser ancien jeu 
AF,AF' ;:de registres 


BC, (OAD3CH) ;rechercher adresse port GA et ROM- 


Select 
Â -annuler Carry 
AF,AF' 
HL,0C132H 


(OAD34H),HL ; Adresse du saut en AD33 
autoriser à nouveau interruptions 


- JI4- 


RÉHRERÉEEEEÉEÉEX module CALL AD33, 


COFA 
COFB 
COFC 
COFD 
C100 
C101 
C105 
C108 
C109 
C10A 
C10B 
C10D 
C111 
C112 


GTS 
C116 
C117 
C118 
C11C 
C11F 
C122 
C124 
C125 
C126 
C127 
C12A 
C12B 
GI2C 
C130 
C131 


FRHERERREREEEEE EX 


C132 
C133 
C134 
C135 
C136 
C13A 
C13D 


F3 

08 

D9 
2238AD 
ET 
ED/7336AD 
3100C0 
D5 

C5 

F5 

FDES 
ED4B3CAD 
B/ 
CD4FC1 


Fe 

08 

D9 
ED433CAD 
216301 
223900 
FDET 

F1 

C1 

D1 
2A38AD 
08 

D9 
ED/B36AD 
FB 

C9 


F3 

08 

D9 

ET 
ED/3364AD 
3100C0 
CD4FC1 


DI 
EX 
EXX 
LD 
POP 
LD 
LD 
PUSH 
PUSH 
PUSH 
PUSH 
LD 
OR 
CALL 


DI 
EX 
EXX 
LD 
LD 
LD 
POP 
POP 
POP 
POP 
LD 
EX 
EXX 
LD 
EI 
RET 


AF,AF' 


(OAD38H),HL 
HL 
(OAD36H), SP 
SP, OCOOCH 
DE 

BC 

AF 

LY 

BC, (OAD3CH) 
À 

OCTUFH 


AF,AF' 


(OAD3CH) , BC 
HL,0C1635H 
(00394), HL 
1Y 

AF 

BC 

DE 

HL, (OAD38H) 
AF,AF° 


SP, (0AD36H) 


module ’CALL AD33', 


DI 
EX 
EXX 
POP 
LD 
LD 
CALL 


AF,AF' 


HL 
(OAD36H), SP 
SP, OCOO0H 


OCT4FH 


conserver ancien jeu de registres 
>sinterdire interruptions 

>pour travailler avec jeu de 
>:registres alternatif 

; Sauver HL 

>:adresse de retour dans HL 

; Sauver pointeur de pile 

set initialiser 

; tous registres sur pile initialisée 


; (adresse de port Gate Array) 


>chercher adresse après ’CALL AD33' 
;et CALLer 

>spourrait être à nouveau autorisé 

; échanger registres 


:a été éventuellement modifié 
;: détourner à nouveau vecteur INT 


srestaurer registres 


shl n'avait pas été PUSHé 


:commuter sur jeu reg, standard 
srestaurer ancien pointeur de pile 


>routine voulue exécutée 


ancien jeu reg. n’est pas sauvé 
>sinterdire INT 
>:Jeu de registres alternatif 


;sretirer adresse de retour de la pile 
> sauver pointeur de pile 

>:initialiser pile 

;>rechercher adresse après CALL AD33 
set Per 


AS 


C140 
C141 
C142 
CT45 
C148 
C149 
CT4D 
CI4E 


RRRERERERERÉEREE 


CT4F 
C153 
C157 
C15B 
C15C 
C15D 
C15E 
C15F 
C160 
C16: 
C162 


FRERE ERÉREÉEÉE 


C163 
C166 


RH NE EE À 


C168 
C16B 
C16C 
C16D 
C16E 
C16F 
C170 
CT71 
C174 


FERRÉ EHÉÉEREE EX 


C177 
C17A 
C1/D 
CIYE 


F3 

D9 
216301 
223900 
D9 
ED/B36AD 
FB 

C9 


EDSB3EAD 
ED533900 
FD2148AC 
DE 
25 
56 
D5 
08 
D9 
FB 
C9 


CD33AD 
3800 


223AAD 
ET 
ES 
23 
23 
de 
ES 
2A3AAD 
C333AD 


216301 
223900 
EB 
ES 


DI 
EXX 
LD 
LD 
EXX 
LD 
El 
RET 


HL,0C163H 
(0039H),HL 


SP, (0OAD36H) 


pourrait étre à nouveau autorisé 
:commuter Jeu de registres 
> détourner à nouveau vecteur INT 


;commuter jeu de registres 
>restaurer pointeur de pile 


#routine voulue exécutée 


JP à l'adresse après ’CALL AD33' 


LD 
LD 
LD 
LD 
[NC 
LD 
PUSH 
EX 
EXX 
EI 
RET 


CALL 


LD 
POP 
PUSH 
INC 
INC 
EX 
PUSH 
LD 
JP 


DE, (OAD3EH) 
(0039H), DE 
[Y,0AC48H 
E, (HL) 

HL 

D, CHL) 

DE 

AF,AF' 


OAD33H 


(OAD3AH),HL 
HL 

HL 

HL 

HL 

(SP), HL 

HL 

HL, (OAD3AH) 
OAD33H 


: (System Interrupt Vector) 
:détourner vecteur INT 

;adresse de base pour Ram disque 
retirer octets après CALL AD33 
>: de DE 


>Sur la pile 


;et appeler à travers RET 


;:Saut au vecteur INT 


ranger hl 
;adresse RET dans hl 


:augmenter de 2, donc après 
s:indication de l'adresse 

} échanger avec adresse RET 
;valeur originelle sur pile 
restaurer hI 


entrer vecteur INT système, JP (DE) 


LD 
LD 
EX 
JP 


HL,0C163H 
(0039H),HL 
DE, HL 

CHL) 


= Eh /6:* 


POOORERAERERXEEX Dloc de Jump BIOS, sous CP/M en Ram à partir de CADOOH 


C17E 
C182 
C185 
C188 
C18B 
CTSE 
C191 
C194 
C197 
C19A 
C19D 
CTAC 
CTA3 
C1A6 
C1A9 
CTAC 
CIAF 


LÉELÉELELLLLLELSZ) 


C1B2 
C1B5 
C1B6 
C1B9 


LÉLLLLLLÉESSLSS SE. 


C1BC 
CIBE 
C1C1 
C1C2 
C1C4 
CICE 
CIC7 
CICA 
C1CB 
CCC 
C1CD 
CTCE 
C1DO 
C1D3 
C1D6 
C1D7 


C3B2C1 
C3BEC2 
C3E1C2 
C3CSC2 
C3C8C2 
C3D2C2 
C3D7C2 
C3DCC2 
CE 9C2 
C3F202 
C324C5 
C329C5 
C31AC5 
C5F/C2 
CorCEZ 
C3CDC2 
C35SACS 


CD12B9 
UF 

21DCC1 
C316BD 


3806 
CD12B9 
B7 
2818 
FDES 
D5 
1100FB 
19 

ED 

23 

É2 
FDET 
CDDDCS 
CDAOCC 
ET 

Di 


JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 


0C1B2H 
OC2BEH 
OC2ETH 
OC2C3H 
OC2C8H 
OC2D2H 
0C2D/H 
OC2DCH 
OC2E9H 
OC2F2H 
OC524H 
0OC529H 
OCSTAH 
OC2F7H 
OC2FCH 
OC2CDH 
OCSSAH 


CPM-COLD BOOT 


CALL 
LD 
LD 
JP 


CPM ROM 
JR 
CALL 
OR 
JR 
PUSH 
PUSH 
LD 
ADD 
PUSH 
INC 
PUSH 
POP 
CALL 
CALL 
POP 
POP 


COLD BOOT 

WARM BOOT 
CONSOLE STATUS 
CONSOLE INPUT 
CONSOLE OUTPUT 
PRINTER OUTPUT 
PUNCHER 

READER 

TRACK 0 

SELECT DRIVE 
SELECT TRACK 
SELECT SECTOR 
[NSTALL BUFFER 
READ SECTOR 
WRITE SECTOR 
PRINTER STATUS 
TRADUIRE NUMERO SECTEUR 


0B912H 3KL CURR SELECTION 

C, À ;ROM Selection 

HL,O0C1DCH  ;Entry Point Adresse 

OBD16H 3MC START PROGRAM 

C, OC1CUH 

0B91 2H 3KL CURR SELECTION 

À ;tester si adresse ROM Select = O0 
Z,0C1DCH ;=> LK 1 sur Contr,.Board ouvert, CP/M 
IV : Adresse himem 

DE :Adresse Iomem 

DE, OFBOOH ;hl = himem 

HL, DE :diminué de O400h 

HL >:ranger nouvelle himem 

HL 

HL 

1Y >iy = himem+] 

OCSDDH zinitialiser FDC et Event 

OCCACH ; détourner vecteurs cassette 

HL > transmettre nouvelles valeurs pour 
DE :Iomem et himem à KL START PROGRAM 


s'il 7e 


C1D8 
C1DA 
C1DB 


HHHHÉHEHEKEEEHE 


C1DC 
C1DF 
CITES 
C1E6 
CIE 
CIEC 
CIEF 
CTFO 
CIF2 
GIFS 
C1F6 
C1F9 


C1FC 
CFE 
€202 
C204 
C207 
C20A 
C20C 
C20F 
C212 
C215 
C218 
C21A 
C21B 
C21E 
C221 


HR HR H HN NH HE 


C224 
C226 
C229 


HHHHHHEHKEREREEE 


C22B 
C22E 


FDE1 
57 
C9 


3100C0 


FD2148AC 


1133AD 
014500 
CDAFCA 
2141AD 
35 
3E81 
320300 
AF 
320400 
2133C0 


1180BE 
013F00 
E DBO 
CDCOCO 
CDDDCS 
0E4 
110000 
210001 
CD66C6 
DCACC2 
3004 
EB 
01/7FC1 
3133AD 
C3/7C1 


3E0F 
CDB8CA 
18DF 


CD6EFC8 
CDBOC8 


POP 
SCF 
RET 


1Y 


marque initialisation OK 


ENTRY démarrage à froid CP/M 


LD 
LD 
LD 
LD 
CALL 
LD 
DEC 
LD 
LD 
XOR 
LD 
LD 


LD 
LD 
LDIR 
CALL 
CALL 
LD 
LD 
LD 
CALL 
CALL 
JR 
EX 
LD 
LD 
JP 


SP, OCOOOH 
[Y,0AC48H 
DE, OAD33H 
BC, OOASH 
OCAAFH 
HL,OADATH 
(HL) 
A,81H 
(0003H),A 
À 
(O004H), À 
HL,0C033H 


DE, OBE80H 
BC,003FH 


OCOCOH 
OCSDDH 
C,UTH 

DE, 0000H 
HL, 0100H 
OC666H 
C,O0C2ACH 
NC, OC224H 
DE, HL 

BC, 0C1/FH 
SP, OAD33H 
0C177H 


zinitialiser pile 


efface (de) à (de+bc) 


>sfixation standard octet I0 
>sDrive et User 

>table Jump instructions Controller 
881-889 

;:copier dans BE80 

sen tout 3fh octets 

; transmettre 

> Sauver vecteur INT & adresse port GA 
>initialiser FDC et Event 

;}numéro de secteur 

piste et lecteur 

:adresse buffer 

slire secteur 

;=> secteur lu vide? 

;erreur apparue 


;svecteur INT sur C163, JP (DE) 


erreur lors du chargement du secteur BOOT 


LD 
CALL 
JR 


À, OFH 
OCAB8H 
OC20AH 


:Msg, 15 ‘Failed to load Boot sector’ 
: demander ‘CHAN,, IGN, or RETRY' 


charger CP/M CCP et BDOS à partir disque, Warm Boot 


CALL 
CALL 


OC86FH 


OC8BOH 


- 158 


C231 014801 LD BC,0148H >b=compteur secteur, c=numéro secteur 


C234 110000 LD DE , O000H spiste et lecteur 

C257 “ES PUSH HL ranger adresse buffer 

C238 CD99C2 CALL 0C299H ;:lire nombre secteurs voulu 
C23B ET POP HL : début buffer à nouveau dans hl 
C23C DCACC2 CALL C, OC2ACH teste, si secteur Iu est vide 
C23F 3051 JR NC,OC292H ;erreur apparue 

C281. ES PUSH HL 

C242 23 INC HL 

C243 GE LD E, CHL) 

C244 23 INC HL 

C245 56 LD D, (HL) 

C246 21A4FC LD HL, OFCAUH 

C249 719 ADD HL, DE 

C2UA EB EX DE,HL 

C24B EI POP HL 

C24C 010002 LD BC, O200H ;: longueur buffer 

C24F  EDBO LDIR 

C251. ‘EB EX DE, HL ;adresse buffer 

C252 01490A LD BC, OAU9H 3:b=compteur secteur, c=numéro secteur 
C255 110000 LD DE , 000CH spiste et lecteur 

C258 CD99C2 CALL 0C299H :lire nombre secteurs voulu 
C25B 3035 JR NC,OC292H ;erreur apparue 

C25D EB EX DE, HL 

C25E 2100EA LD HL, OEAOCH 

C261 19 ADD HL, DE 

C262 ÆE5 PUSH HL 

C263 2106F2 LD HL, OF 206H 

C266 19 ADD HL, DE 

C267 3EC3 LD A, OC3H ;code d'opération pour JP 
C269 320500 LD (O005H),A  ; 

C26C 220600 LD (0006H),HL ;Entry BDOS, 8F00 

C26F 320000 LD (OO00H),A ;Code JP 

C272 210300 LD HL, O003H 

C275 19 ADD HL, DE 

C276 220100 LD (0001H),HL ;Entry BIOS, ADO0 

C279 217FC1 LD HL,0C17FH  ; Table des vecteurs CP/M 
C27C 013300 LD BC, 0033H :51 octets de long 

C27F  EDBO LDIR :dans ADO0 

C281 210400 LD HL, OOO4H ;User et lecteur 

C284 7E LD À, (HL) 

C285 EGOF AND OFH :iSoler lecteur 


UD 


C287 FEO2 CP 02H : lecteur O0 ou 1? 


C289 3802 JR C, OC28DH ;eSt O0 ou 1 => 

C28B 3600 LD (HL), 00H ;>Sinon mettre sur 0 

C28D 4E LD GC; CHL) 

C28E D1 POP DE 

C28F C377C1 JP 0C177H ;vecteur INT sur C163, JP(de) 


ÉREERRENHEÉ OrTEUT ADDarue lors du chargement de CP/M 


C292 3EOE LD À, OEH ;Msg. 14 ‘Failed to load CPM’ 
C294  CDB8CA CALL OCAB8H ; demander *CHAN., IGN. or RETRY' 
C297: -1892 JR 0C22BH ;WARM BOOT 


** charge continuellement secteurs, nombre en b, secteur en c, piste en d 


C299 CD66C6 CALL OC666H ; Charger secteur 

C29C DO RET NC ;erreur apparue 

C29D 79 LD A; C >numéro secteur dans accu 

C29ŒŒ OC INC C prochain secteur 

C29F FE49 CP 9H >dernier secteur était Nr 49h? 
C2A1 3803 JR C, OC2A6H ;=> n'était pas 49h 

C2A3 OEUT LD C,41H 3Sector 41h 

C2A5 14 INC D ;Sur piste suivante 

C2A6 24 INC H zélever pointeur buffer de 2 pages 
C2A7 24 INC H 

C2A8 10EF DUNZ 0C299H ;Iu tous les secteurs? 

C2AA 37 SCF :marque que tout est OK 

C2AB C9 RET 


PORERERREHERE toste Si secteur lu est vide 


C2AC ES PUSH HL adresse buffer 

C2AD 010200 LD BC, 0002H :512 octets 

C2B0 7/E LD À, CHL) premier caract. de buffer dans accu 
C2B1 BE CP (HL) >; (pointeur buffer) 

C2BZ :25 INC HL augmenter pointeur 

C2B3 37 SCF marque OK 

C2B4 2006 JR NZ,0C2BCH ;si différent, alors => 
C2B6 10F9 DUNZ OC2B1H >:boucle sur 256 octets 
C2B8 OD DEC CG :fois deux = un secteur 
C2B9 20F6 JR NZ, OC2B1H 

C2BB B7 OR À annuler Carry 

C2BC ET POP HL répéter pointeur buffer 
C2BD C9 RET 


“+ ALAA0e 


ÉKHKEKKÉKEÉKÉEEKEK EX 


C2BE CD33AD 
C2C1 2BC2 


KKKKEÉEÉÉHHÉ EE HE K 


C2C3 2186C4 
C2C6 181C 


HRK HN HE KE K # 


C2C8 218FC4 
C2CB 1817 


HR HE 


C2CD 2198C4 
C2D0 1812 


HE 6 6 6 


C2D2 21A1C4 
C2D5 180D 


OH HOHH E E  E 


C2D7 21AAC4 
C2DA 1808 


LÉRRÉRSSSSSLLLSSS) 


C2DC 21BCC4 
C2DF 1803 


OH HE HE 6 6 


C2E1 21/DC4 
C2E4 CD33AD 
C2E/ GACA 


LÉRÉÉRSRÉSSERSRSSSLEE, 


C2E9 CD68C1 
CÆC 1FC5 
C2EE 2189BE 
Car1 C9 


HE EH Hé EN 6 


C2F2 CD33AD 
C2F5 FOC4 


WARM BOOT 


CALL 
DEFW 


CONSOLE 
LD 
JR 


CONSOLE 
LD 
JR 


PRINTER 
LD 
JR 


PRINTER 
LD 
JR 


PUNCHER 
LD 
JR 


READER 
LD 
JR 


CONSOLE 
LD 
CALL 


CAD33H 
0C22BH 


INPUT 
HL,0C486H 
OC2E4H 


OUTPUT 
HL, 0C48FH 
OC2E4H 


STATUS 
HL,0C498H 
OC2E4H 


OUTPUT 
HL,OC4ATH 
OC2E4H 


HL, OCHAAH 
OC2E4H 


HL,0C4BCH 
OC2E4H 


STATUS 
HL,0C4/7DH 
OAD33H 


CHERCHER PISTE 0 


CALL 


LD 
RET 


0C168H 


HL, OBE89H 


SELECT DRIVE 


CALL 


0AD33H 


3"JP C22B° 
3(hl)=> Affectation Console In 
;(hl)=> Affectation Console Out 
3(hl)=> Affect, List Device Status 
;(hl)=> Affect. List Device Output 
3(hl)=> Affectation Puncher 
3; (hl)=> 


Affectation Reader 


;(hl)=> Affectation Console Status 
;3'JP CU6A'; Affect, par octet 1/0 


;'JP C51F° 


;'JP CAFO' 


MODEATE 


RER EX DEAD SECTOR 


C2F7 
C2FA 


KO HE EE 


C2FC 
C2FFr 


HR OH HN KE KE HE X 


C301 
C304 
C30/ 
C3OA 
C30C 
C30F 
C312 


RSR LSLELRESESS) 


C313 
C316 
C317 
C318 
C31À 
C31B 
C31E 
C321 
C324 
C325 


CD33AD 
aCCS 


CD33AD 
2È05 


32C5AD 
018100 
1142AD 
E DBO 
2143AD 
22C3AD 
C9 


214TAD 
Fe 

B/ 
2804 
SE 
CC81BB 
CDOSBB 
DCOCBB 
9F 

C9 


CALL 


OAD33H >" JP CS4C° 


WRITE SECTOR 


CALL 


LD 
LD 
LD 
LDIR 
LD 
LD 
RET 


OAD33H Fe 692E” 


(OADCSH), A 
BC, 0081H 
DE, OAD42H 


HL, OADA3H 
(OADC3H),HL 


tester état clavier, caractère disponible? 


LD 
LD 
OR 
JR 
DEC 
CALL 
CALL 
CALL 
SBC 
RET 


HL,0AD41H 
A, (HL) 
À 
L/OC3TEH 
(HL) 
Z,0BB81H 3 TXT CURSOR ON 
OBBOSH ;KM READ CHAR, 1 caract. du clavier 
C, OBBOCH 3Si car, disponible, KM RETURN CHAR 
À, A :0ffh=> caractère disponible, 
;00 pas de caractère 


PEUT 


POOPORRRHEREXE Console Input, retirer un caractère du clavier 


C326 2142AD LD HL,OAD42H ;Keyboard Modus Flag 
6529; ZE LD À, (HL) 

C52À. :B7 OR À >tester flag 

C32B 281B JR Z,0C348H ;=> Keyboard Mode ‘INPUT’ 
C32D CDOSBB CALL OBBOSH ;Keyboard Mode ‘INKEY', KM READ CHAR 
C330 300C JR NC,OC33EH  ;=> reçu aucun caractère 
C332 21C5SAD LD HL, OADC5SH 

0535 .54 INC (HL) 

536. 35 DEC (HL) 

6557: 100 RET NZ 

C338 2142AD LD HL, OAD42H 

C33B 3600 LD (HL) , 00H 

C33D C9 RET 

#6 DD D DE 6 EX 6 

CSS: 235 DEC (HL) >Keyboard Mode sur ‘INPUT’ 
C33F 2AC3AD LD HL, (COADC3H) 

C342 7E LD À, CHL) 

C343 23 INC H 

L 

C344 22C3AD LD (OADC3H),HL 

C347 C9 RET 


FOPOOOHEREXX Console Input, attendre un caractère du clavier 


C348 2141AD LD HL,OAD4TH 

C34B 7E LD À, CHL) 

C34C B7 OR À 

C34D C481BB CALL NZ,OBB81H ; TXT CURSOR ON 

C350 3600 LD (HL) , 00H 

C352 C30O6BB JP OBBO6H ;KM WAIT CHAR, attendre caractère 


RPOORERREEXX High Speed Reader comme Reader, non étendu 
C355 3ETA LD A,1AH ; EOF 
C357 C9 RET 


APEEREEEEXX Status CRT comme Printer, High Speed Reader comme Reader 
C528 DEFF LD A, OFFH 


RER REREEEXE High Speed Puncher comme Puncher Device 
C35A C9 RET 


LE 45-5 


FANRRRANENAEXES CRT-Device, sortir un caractère sur l'écran 


C35B 
C55E 
C35F 
C360 
C363 
C365 
C366 
C369 
C36B 
C36C 
C36F 
C372 
C373 
C376 


LRLSSLLRSSLLLLS SE. 


C379 
C37C 
C37D 
C3/E 


LÉRSLRÉRÉLLLSLSRSLE SE) 


C37F 
C380 
C383 
C384 
C387 


HO # 


C389 
C38A 
C38D 
C390 
C393 
C394 
C395 
C396 
C399 
C39B 
C39D 
C3AO 


2141AD 
7E 

B/ 
CC84BB 
36FF 
79 
CDSABB 
FE20 
DO 
CD/78BB 
CD87BB 
D8 
CD8ABB 
C38DBB 


CD2EBD 
3F 
9F 
C9 


79 
CD2BBD 
D8 
CDD3C4 
18F6 


F3 
01DDFA 
11C6AD 
CDBDC3 
03 

03 

13 
CDBDC3 
3E36 
1EDC 
CDAEC3 
3E76 


LD 
LD 

OR 
CALL 
LD 
LD 
CALL 
CP 
RET 
CALL 
CALL 
RET 
CALL 
JP 


Line 
CALL 
CCF 
SBC 
RET 


Line 
LD 
CALL 
RET 
CALL 
JR 


initialiser I/0 sériel 


DI 
LD 
LD 
CALL 
INC 
[NC 
[NC 
CALL 
LD 
LD 
CALL 
LD 


HL,O0AD&TH 
À, CHL) 
À 
Z,0BB84H 3; TXT CURSOR OFF 
(HL),OFFH 
A,C caractère à sortir dans l’accu 
OBB5AH ; TXT OUTPUT 
20H caractère espace 
NC ;=> pas code de contrôle 
OBB78H 3; TXT GET CURSOR 
OBB87H 3; TXT VALIDATE 
C 
OBB8AH 3; TXT PLACE CURSOR 
0BB8DH ; TXT REMOVE CURSOR 


Printer Status, 


OBD2EH 


À, À 


Printer Output, 


A, C 
0BD2BH 
C 
OC4D3H 


OC37FH 


teste, si Centronics Busy 
;MC BUSY PRINTER, Carry si Busy 
;Carry, Si pas Busy 
>0ffh => pas Busy, 00 si pas Busy 


un caractère vers l'imprimante 
caractère dans accu 

3MC PRINT CHAR, sortir 

envoi caractère réussi 
sPrinter Busy, tester Keyboard 
snouvelle tentative 


(hl)=> table paramètres 


BC,OFADDH  ;SIO Canal A/registre de contrôle 
DE,OADC6H ;mémoire pour registre WR 5, Canal A 
OC3BDH Reset canal, Init. Can. À 

BC 

BC ; SIO Canal B/registre de contrôle 

DE ;smémoire pour registre WR 5, Canal B 
0C3BDH >; Channel Reset, Init. Can. B 

À, 36H :Mode Timer O0 du 8253 

E, ODCH soctet faible pour adr., port timer 0 
OC3AEH >fixer baudrate d'envoi canal À 

À, /6H >Mode Timer 1 du 8253 


EL T6 


C3A2 
C3A3 
C3A6 
C3A8 
C3A9 
C3AC 
C3AD 


TE 
CDAEC3 
3E B6 
1C 
CDAEC3 
FB 

C9 


INC 
CALL 
LD 
INC 
CALL 
EI 
RET 


E 
OC3AEH 
À, OB6H 
E 
OC3SAEH 


;octet faible pour adr, port Timer 1 
;:fixer baud rate réception canal À 
:Mode Timer 2 du 8253 

;soctet faible pour adr. port Timer 2 
;Baudrate réc, et envoi canal B 


ROOERREREEEEEE jnit, Baudrate-Generator 8253, (hl1) => Lo-Hi valeurs timer 


C3AE 
C3B1 
C3B3 
C3B4 
C3B5 
C3B6 
C3B8 
C3B9 
C3BA 
C3BC 


CHOC HE EH He 


C3BD 
C3BF 
C3C1 
C5C3 
C5C5 
C3C6 
C3C7 
C3C9 
C3CB 
C3CD 
C3CE 
C3CF 
C3DO 
C3D2 
C3D4 
C3D6 
C3D7 
C3D8 
C3DA 


OTDFFB 
ED79 
4B 

7E 

25 
ED/79 
/È 

23 
ED/79 
C9 


3E18 
ED79 
3E04 
ED/79 
7E 
23 
ED79 
3E05 
ED79 
LE 
12 
22 
ED79 
3E03 
ED79 
7E 
40 
ED79 
C9 


LD 
OUT 
LD 
LD 
INC 
OUT 
LD 
INC 
OUT 
RET 


BC, OFBDFH 


(C),A 
CE 

À, (HL) 
HL 
(C),A 
A, CHL) 
HL 
(C),A 


sadr, port mot contrôle 8253 

;:Sortir mot de contrôle au 8253 
;octet faible adr,port du timer voulu 
soctet faible valeur timer 


;:Charger dans timer 
soctet fort valeur timer 


; Charger dans timer 


initialiser canal SIO dans (BC) 


LD 
OUT 
LD 
OUT 
LD 
[NC 
OUT 
LD 
OUT 
LD 
LD 
INC 
OUT 
LD 
OUT 
LD 
INC 
OUT 
RET 


À,18H 
(C), A 
À, OUH 
(C),A 
À, CHL) 
HL 
(C),A 
À, OSH 
(C),A 
A, CHL) 
(DE), A 
HL 
(C),A 
A, 03H 
(C),A 
A, CHL) 
HL 
(C),A 


; code d'opération restaurer canal 
;Sortir sur SIO 
;sSélectionner Write-Register 4 


;entrée de table pour 

;Parity, Stop-Bits et Clock-Mode 
>Sortir sur SIO 

;Sélectionner Write-Register 5 


ranger entrée table pour hand shake 
set Bits/Char dans (de) (ADC6/ADC7) 


;et sortir sur SIO, envoi param. (TX) 
;sSélectionner Write-Register 3 


>valeur table pour Handshake et 
;:Bits/Char., 
3Sortir sur SIO, param. récept, RX 


PART Canal. À bürrér RX-Dlein? 


[15 


C3DB 
C3DE 
CSE I 


HR HE EH EEK 


C3E3 
C3E6 
C3E9 
C3EB 
CSC 
C3ED 
C3EE 
C3F1 
C5rS 
C3F4 
C3F5 


HE EH ECHEC HE 


C3F7 
C3FA 
C3FD 


HOHOEOMCHHE ÉMÉ ÉHE E E É 


C3FF 
C402 
C405 
C407 
C408 
C4OA 
C4OD 
C410 
C412 
C414 
C416 
C417 
C419 
C4TC 
C41D 
C41F 


01DDFA 
21C6AD 
1806 


O1DFFA 
21C7AD 
ED78 
OF 

9F 

D8 
CD24C4 
ED/8 
OF 

9F 
1829 


O1TDDFA 
21C6AD 
1806 


O1DFFA 
21C7AD 
ED/78 
OF 
3812 
CD24Cu 
CDCSC4 
FETA 
2800 
ED78 
OF 
30F4 
CD20C4 
OB 
ED/8 
C9 


LD 
LD 
JR 


Canal B 
LD 
LD 
IN 
RRCA 
SBC 
RET 
CALL 
IN 
RRCA 
SBC 
JR 


BC, OFADDH  ; SIO Canal A, registre de contrôle 
HL, OADC6H ;(h1)=> contenu Write-Reg. 5,Can. À 
OC3E9H 


buffer RX plein? 

BC,OFADFH  ;SIO Canal B, registre de contrôle 

HL,OADC/H  ;:(hl)=> Write-Reg. 5, Can. B 

h: (0) ;:lire Read-Reg, 0 du canal voulu 
;:Bit O0, caractère RX prêt? 


À, A 
b >=> un caractère présent 
OC424H ;fixer bit DTR 
A, (C) >:lire Read-Reg. 0 

:Bit 0, caractère RX prêt? 
À,A 
0C420H annuler bit DTR 


SI0O canal À retirer un caractère 


LD 
LD 
JR 


BC, OFADDH  ; SIO canal A, registre de contrôle 
HL, OADC6H ;(hl)=> contenu Write-Reg, 5, Can, A 
OC4OSH 


SIO canal B retirer un caractère 


LD 
LD 
IN 
RRCA 
JR 
CALL 
CALL 
CP 
JR 
IN 
RRCA 
JR 
CALL 
DEC 
IN 
RET 


BC,OFADFH  ;S10 canal B, registre de contrôle 
HL,OADC/H  ;(hl)=> Write-Reg. 5, Can. B 
A, (C) ;lire Read-Reg. 0 
>caractère RX disponible? 
C,0C41CH ;=> recevoir un caractère 


OC4 24H sfixer bit DTR 

OC4CSH >interroger clavier 

1AH sentré Control Z comme fin? 
Z,0C420H ;=> annuler bit DTR, RET 

A, (C) :lire Read-Reg. 0 


; Caractère RX disponible? 
NC, OCUODH ; => pas encore disponible 


0C420H -annuler bit DTR 
BC :adresse de port registre de données 
A, (C) :lire caractère reçu 


JT 16 7 


OREÉS Snnuler bit DIR, autoriser réception 


C420 1E00 LD E, OOH annuler bit 7, indifférent 
C422 1802 JR 0C426H 

POREÉEEESE mettre Dit DIR, interdire réception 

C424 1E80 LD E, 80H >mettre bit 7 

C426 F3 D] 

C427. ES PUSH AF 

C428 3E0S5 LD À, OSH >Write-Reg, 5 

C42A ED79 OUT (C),A ;appeler 

C42C 7E LD À, CHL) :(h1)=> contenu de WR-Reg 5 
CU2D E6/7F AND 7FH sisoler Dit 7 

C42F B3 OR E ;Suivant appel Bit 7 mis/annulé 
C430 ED79 OUT (C),A z:écrire dans Write-Reg, 5 
C432 F1 POP AF 

C433 FB EI 

Cus4 C9 RET 


PÉNNATNAERANES Teste, Si buffer IX Canal À vide 
C435 O1DDFA LD BC,OFADDH  ;:S10 canal A, registre de contrôle 
C438 1803 JR OC43DH 


FRERES teste, si buffer TX canal B vif 


CU3A O1DFFA LD BC,OFADFH  ;SIO canal B, registre de contrôle 
C43D ED78 IN A, (C) ;:lire Read-Reg 0 

C43F E6O4 AND OUH >:1soler TX-Empty-Bit 

CuuT C8 RET Z ;=> Buffer n'est pas vide 

CUUD 37 SCF marque buffer vide 

Cuuz 9F SBC A, A 

Cut C9 RET 


FAERREREREEE eNVOYETr Un Caractère à travers canal À 


CUS 79 LD A; caractère à sortir dans accu 
C4u6 O1DDFA LD BC,OFADDH  ;S10 canal À, registre de contrôle 
C44S 1804 JR OC4UFH 


FERREAERERRRE envoyer Un caractère à travers canal B 


CHUB 79 LD A,C >caractère à sortir dans accu 

C44C  O1DFFA LD BC, OFADFH  ;S10 canal B, registre de contrôle 
CUUF F5 PUSH AF > Sauver caractère 

C45O  CDD3C4 CALL OC4D3H interroger clavier 


C453 CD3DC4 CALL 0C43DH sbuffer d'envoi vide? 


IL Trs 


C456 
C458 
C45g 
C4SA 
C4SC 


LR SÉRSSSSSS SE) 


CSD 21B3C4 


Cu60 


EH EE EE 6 


C462 21BCC4 


C465 


HE EE EE EX 


C467 


*#####%% déterminer 1/0-Device avec 


C46A 
C46B 
C46C 
C46F 
C470 
C472 
C474 
C476 
C477 
Cu78 
C479 
C47A 
C47B 
C47C 


EE EE D 6 6 6 


C47D 
CA7E 
C480 
C482 
C484 


HO OO RHÉE K K 


C486 


30F8 
F1 
OB 
ED/9 
CS 


1808 


1803 


21A1C4 


46 
23 
3A0300 
07 
10FD 
E606 
1600 
5F 
19 
DE 
23 
56 
EB 
ES 


01 

A7BE 
1363 
5SDC4 
B3BE 


O1 


JR 

POP 
DEC 
OUT 
RET 


NC, OCASOH 


AF 


BC 
(C),A 


;=> pas encore vide 

>caractère à nouveau dans accu 
;adresse de port registre de données 
;sécrire caractère dans SIO0 


déterminer READER Status à travers octet 1/0 


LD 
JR 


HL,0C4B35H 
OC4GAH 


> table READER-Status 


READER- Input à travers octet 1/0 


LD 
JR 


HL,0C4BCH 
OC4GAH 


;> table READER- Input 


PRINTER-OUTPUT à travers octet 1/0 


LD 


LD 
INC 
LD 
RLCA 
DUNZ 
AND 
LD 
LD 
ADD 
LD 
INC 
LD 
EX 
JP 


CONSOLE 
DEFB 
DEF 
DEFW 
DEFW 
DEFW 


CONSOLE 
DEFB 


HL,OC4ATH 


B, CHL) 
HL 


À, (0003) 


OC46FH 
06H 

D, 00H 
E,A 
HL, DE 
E, CHL) 
HL 

D, CHL) 
DE,HL 
CHL) 


STATUS 
01H 

OBEA7H 
0C313H 
OC4SDH 
OBEB3H 


INPUT 
OTH 


; table PRINTER-Output 


octet 1/0, (hl)=> table d'affectation 
;:nombre boucle pour les 4 Devices 

> (hl)=> première affectation 

;soctet 1/0, habituellement &81 


; (b) fois octet I/0 vers }a gauche 
;isoler bits significatifs 


;:donne décalage dns table affectation 
:additionner à start 
:Adresse de routine 1/0 dans de 


:Saut indirect à routine I/0 


; JP OC3D8H,Car,SI0O Can, A disponible? 
Caractère du clavier disponible? 
>READER Status à travers octet 1/0 

; JP OC3E3H,Car.SIO Can, B disponible? 


11-107 


AABE 
26C3 
62C4 
B6GBE 


C48/ 
C48g 
Cu8B 
CH8D 


HR HOMME EEE EEE 


C48F 01 

C490O  BOBE 
C492 SBC3 
C4g4 67C4 
C496 BCBE 


HE HE EH HE HE DE EE EE 


C4g8 03 

C499  ADBE 
C49B S8C3 
C4gD 79C3 
CU9F  B9BE 


LRÉÉRRÉSRESLESSS: 


CHAT 03 

C4A2 BOBE 
CHA  SBC3 
CHAG 7/FC3 
CHA BCBE 


HE DE HE HE DE HE EME EE EH 


CHAA O5 

CUAB  BOBE 
CHAD SAC3 
CUAF  BCBE 
C4BT  SBC3 


HE HE EE EEE HE EE 


C4B3 O7 

C4B4  A7BE 
CIB6 58C3 
CUB8 B3BE 
CHBA  13C3 


LÉRSÉRRÉESERESS SEE) 


C4BC 07 


DEFW 
DEFW 
DEFW 
DEFW 


CONSOLE 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


PRINTER 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


PRINTER 
DEFB 
DEFW 
DEFW 
DEFN 
DEFW 


PUNCHER 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 


OBEAAH 
0C326H 
OC462H 
OBEB6H 


OUTPUT 
OTH 

OBEBOH 
OC35BH 
OC467H 
OBEBCH 


STATUS 
05H 

OBE ADH 
0C358H 
0C3/9H 
OBEBSH 


OUTPUT 
03H 

OBEBOH 
OC35BH 
OC3/FH 
OBEBCH 


OSH 

OBEBOH 
OC35AH 
OBEBCH 
OC35BH 


READER Status 


DEFB 
DEFW 
DEFW 
DEF 
DEFW 


0/H 

OBEA/H 
OC358H 
OBEB3H 
0C3135H 


>: JP OC3F/7H,retirer car. de SIO Can, À 
retirer caractère du clavier 

:lire car. READER à travers octet I/0 
3 JP OC3FFH,retirer car. de SIO Can. B 


; JP OC44SH, envoyer car, par SIO Can.A 
>Sortir caractère sur I’écran 
3>PRINTER OUTPUT à travers octet I/0 

; JP OC4UBH, envoyer car. par SIO Can.B 


; JP 0C435, buffer envoi can, À vide? 
>non complété | 
teste Centronics Busy 

; JP OC43A, buffer envoi can, B vide? 


; JP OC44SH, envoyer car. par SIO Can.A 
;:Sortir caractère sur I'écran 

>Sort caractère sur port Centronics 

; JP OC4UBH, envoyer car. par SIO Can.B 


3 JP OC44SH, envoyer car. par SIO Can. 
»non complété, RET 

; JP OC44BH,envoyer car, par SIO Can.B 
>Sortir caractère sur l'écran 


; JP OC3D8H, Car. SIO Can. A dispon,.? 
;non complété 

; JP OC3E3H, Car. SIO Can. B? dispon,.? 
steste, si car. du clavier présent 


READER lire caractère 


DEFB 


07H 


LL i9rs 


C4BD 
C4BF 
C4C1 
C4C3 


HE EE EEE HE EH 


C4Cs 
C4C& 
CHCA 
C4CB 
C4CC 
C4CD 
C4DO 
CAD 
C4D2 


CRISE SSESSSSE) 


CuD3 
C4D4 
C4D5 
C4D6 
C4D9g 
CADA 
C4DC 
CADF 
CUET 
CUES 
CHES 
CHERS 


HE EE DE HE CHEHE EME HE EEE 


CUEB 
CUEC 
CUED 
CEE 


HORDE EE 


CUEF 


LRLRSLSSRRRSRR ES) 


C4FO 
C4F1 


AABE 
55C3 
B6BE 
2603 


CDD3C4 
FES 
CO 

ES 

C5 
CD26C3 
C1 

ET 

C9 


ES 

D5 

C5 
CD13C3 
B/ 
280F 
CD26C3 
FEO3 
2008 
3EOD 
CDEBCA 
C32BC2 


C1 
DI 
ET 
C9 


FF 


79 
FEO2 


DEFW 
DEFW 
DEFW 
DEFW 


CALL 
CP 
RET 
PUSH 
PUSH 
CALL 
POP 
POP 
RET 


tester, 
PUSH 
PUSH 
PUSH 
CALL 
OR 
JR 
CALL 
CP 
JR 
LD 
CALL 
JP 


OBEAAH 
0C355H 
OBEB6H 
0C326H 


OC4D3H 
13H 

NZ 

HL 

BC 
0C326H 
BC 

HL 


; JP 0C3F7H, retire car. de SIO can.A 
:non complété, retire EOF 

: JP OC3FFH, retire car, de SIO can.B 
;:retire caractère du clavier 


;tester si CONTROL C enfoncé 
ENTER ? 
;=> pas ENTER 


:retirer autre caractère du clavier 


Si CONTROL C est appuyé 


HL 

DE 

BC 
0C315H 
À 


Z,OC4EBH 


0C326H 
03H 


NZ, OCUEBH 


À, ODH 
OCAEBH 
0C22BH 


;tester Keyboard Status 


;=> pas de caractère disponible 
sretirer caractère du clavier 

; CONTROL C? 

;3=> pas Control C 

message système 14 .,.°C 
3Sortir 

>Warm Boot 


pas d'action, CONTROL C pas appuyé 


POP 
POP 
POP 
RET 


BC 
DE 
HL 


pas utilisé 


RST 


38H 


SELECT DRIVE 


LD 
CP 


A, C 


02H 


:No lecteur dans accu 
;:ne peut être que O ou 1 


dE 207% 


C4F3 210000 
CUF6 DO 
CUF7 7B 
CUF8 1F 
CUF9  380F 
CUFB 59 
CUFC 3E18 
CUFE CDSCCA 


CS0T B7 
C502 2006 
CS04 ES 
C505 CD6CCS 
C508 ET 
C509 DO 
CS0A 79 
C50B 3253BE 
CSOE 211002 
C511 B7 
C512 2803 
C514 212002 
C517 C39FCA 


LÉRRSÉ SSL SLLL SSL; 


CSIA ED4360BE 
GORE: :69 


LRRLLELLLLELL RS; 


LD HL, OOOCH 
RET NC :No lecteur trop grand 
LD À, E ;3No lecteur actuel dans accu 


RRA ;:Bit O0 dans Carry 


JR C, OCSOAH ; Saut, si lecteur 1 actif jusqu'ici 

LD E,C ;: lecteur voulu dans € 

LD À, 18H 

CALL OCASCH ;charge val, bloc param.disc 18h dns 
accu 

OR À >:Si différent 0 

JR NZ,OCSOAH  ;alors saut 

PUSH HL 

CALL OCS6CH ;Sinon déterminer format disque 

POP HL 

RET NC 

LD A, C ;numéro lecteur dans accu 

LD (OBES3H),A ;buffer HS/US 

LD HL,0210H :décal, Disc Param. Header lecteur À 

OR Â :Si lecteur A utilisé, alors saut, 

JR Z,0C517H 

LD HL,0220H 3Sinon décalage DPH pour lecteur B 

JP OCA9FH shi=hl+iy, hl => début table pointeur 


entrer adresse buffer enregistrement 
LD (OBE60H),BC ;: (bc):-= buffer enregistrement 
RET 


chercher piste 0 


CS1F 
C522 
C524 
C525 
C528 


ÉRRREREÉIERÉÉÉE 


C529 
C52A 
C52D 


LÉRÉRRÉRÉSSRÉRSES RSS ES: 


C52E 
C52F 


CD6EFC8 
OEOO 
79 
3254BE 
C9 


79 
5259bE 
C9 


C5 
79 


CALL OC86FH 

LD C, OOH 

LD A,C 

LD (OBES4H), A ;(Buffer pour numéro de piste) 
RET 


envoyer numéro enregistrement au controller 


LD 
LD 
RET 


A, C 


(OBES SH), A 


;: (Buffer pour numéro enregistrement) 


Write Record (écrire enregistrement) 


PUSH 
LD 


BC 
A,C 


- 11 21- 


C530 
(532 


(552 


C538 
C53B 
CS3E 
CS5F 
C540 
C543 
CS44 
CS45 
C548 
C549 
CSUB 


LÉRRRSSLSLSLLLSLSLSS, 


CS4C 
CS4D 
C550 
C525 
C556 
C557 
C559 


RSS LSLSLSRSLSSSS ES) 


CSSA 
CS5B 
C55C 


EE EEE NN 


CS5D 
C560 
C562 
C565 
C566 
C569 


CE ES EE EE 


C56C 
C56F 


FEO2 
CCEBC7 


CDOOC8 


DC1BC8 
CD32C8 
C1 

DO 
CDB6C8 
OD 

37 
CCEFCS 
DO 
3E00 
C9 


AF 
3259BE 
CD32C8 
CDC7C8 
DO 
3E00 
C9 


60 
69 
C9 


01/EFB 
3E4A 
CDSCC9 
7B 
CDSCC9 
C3F9C8 


CD/6C9 
3E16 


CP 
CALL 


CALL 


CALL 
CALL 
POP 
RET 
CALL 
DEC 
SCF 
CALL 
RET 
LD 
RET 


02H 
Z,0C7/EBH 


OC800H 


C,0C81BH 
0C832H 
BC 

NC 
OC8B6H 

C 


Z,0C86FH 
NC 
A, OOH 


Read Record 


XOR 
LD 
CALL 
CALL 
RET 
LD 
RET 


À 
(OBES9H), À 
0C832H 
OC8C/H 

NC 

À, OOH 


;:lecteur, piste, enr. de be53h dns 
besah 

3teste, si Drv, Trk & Rec dns be53h = 
besah 


;=> identiques 
> déterminer secteur avec numéro enr. 


;stransfère enreg. dans buffer secteur 
:nombre enregistrements 


:ajouter décal.secteur,écrire secteur 
=> erreur 


;:vider accu et 

entrer dans Blockmask+1 

;:déterminer secteur avec No enreg, 
>transfère enreg. dans buffer enreg,. 


traduire numéro enregistrement 


LD 
LD 
RET 


H, B 
LC 


;stransfère seulement bc dans hl 


lire ID secteur, interroger erreurs éventuelles 


LD 
LD 
CALL 
LD 
CALL 
JP 


BC, OFB/EH 
À, LAH 
OC9SCH 
AE 
OC95CH 
OC8F SH 


;:Status reg, FDC 

:lire code ID secteur 

;:Sortir accu sur FDC 

;Unit Select/Head Select 

;ssortir accu sur FDC 

sphase résultat FDC, Drive READY? 


déterminer format disquette d'après ID secteur 


CALL 
LD 


0C976H 
A,16H 


;Moteur en marche 


—)ht..225 


C571 


C574 
C575 
C577 
CS7A 
C57D 
CS/E 


LE LLLELELLLLLLZZ: 


C581 
C582 
C583 
C586 
C587 
C588 
C58B 
C58E 
C590 
C591 
C592 
CS94 
C596 
C597 
C598 
CS9B 
C59D 
C59F 
C5A2 
C5A3 
CSAL 
CSAS 
C5AG 
CSA7 
C5A8 
C5A9 
CSAC 
CSAD 
CSAE 
CSAF 
C5BO 
CSB1 


CDSCCA 


7 
DET0 
215DC5 
CDFFCE 
DO 
3ASTBE 


F5 

AF 
CD63CA 
ES 

EB 
2143CA 
011600 
EDBO 
ET 

F1 
E6CO 
FE4O 
SF 

C8 
11CACS 
FECO 
2803 
11C0C5 
1 À 

13 

77 

23 

1 

13 

77 
010400 
09 

1A 

1$ 

Ft 

25 

TA 


CALL 


LD 
LD 
LD 
CALL 
RET 
LD 


OCASCH 


D, À 


C, 10H 


HL, OCS5SDH 
OC6FFH 
NC 


A, (OBE51H) 


> Charger valeur bloc paramètres 
disque 16h dans accu 


c'est le numéro de piste actuel 


nombre de tentatives de lecture 


:Adresse Routine ‘lire 1D secteur’ 
>Cchercher piste dans d 

3NC = erreur 

:No secteur de FDC dns phase résultat 


"83h déterminer formatage disque 


PUSH 
XOR 
CALL 
PUSH 
EX 
LD 
LD 
LDIR 
POP 
POP 
AND 
CP 
SCF 
RET 
LD 
CP 
JR 
LD 
LD 
[NC 
LD 
[NC 
LD 
INC 
LD 
LD 
ADD 
LD 
[NC 
LD 
[NC 
LD 


AF 

À 

OCA63H 

HL 

DE, HL 
HL,O0CA43H 
BC, 0016H 


HL 
AF 
OCOH 
40H 


2 

DE , OCSCAH 
OCOH 
Z,OC5SA2H 
DE, OC5COH 
A, (DE) 

DE 

CHL),A 

HL 

A, (DE) 

DE 

CHL) , À 
BC, OOO4H 
HL, BC 

À, (DE) 

DE 

CHL), A 

HL 

A, (DE) 


= El 


scontient numéro secteur Iu par FDC 
>Vvider accu 
> début bloc param. disque dans h] 


sbloc param,.disc stndrd (DPB) dns Rom 
322 octets 

:dans bloc param. disque actuel 

; début table 

numéro de secteur 

annuler bits 0 à 5 

s3bit 6 mis? 


salors utiliser table format standard 
; début format données DPB, Tab,2 

3Bit 6 et 7 mis? 

3Si oui, utiliser format de données 

; début DBP format IBM, Tab,1 
stransférer les deux 1ères valeurs 
:dans bloc param. disc 


shl pointe sur bloc param, disc +5 
;:nombre blocs/disque 

;stransférer deux octets suivants 
:dans bloc param. disque 


25 


C5B2 
C5B3 
CSB& 
C5B/ 
C5B8 
C5B9 
CSBC 


13 

77 
010700 
09 

EB 
010600 
EDBO 


INC 


LD 
ADD 


LD 
LDIR 


DE 
CHL) , À 
BC, 000/H 
HL, BC 
DE, HL 
BC, 0006H 


hi pointe sur bloc param. disque +13 


:transférer les 6 octets restants 
:dans bloc paramètres disque 


—s FD:204e 


CSBE 
CSBF 


LÉ SSL LSSS SSSR S S: 


C5CO 
C5SC2 
CSC4 


C5C6 
CSC7 
C5C8 
C5C9 


LÉSÉLÉSLLSLSLS LS, 


CSCA 
CECC 
CSCE 


C5SDO 
C5D1 
C5D2 
CSD3 


RSS LSLSLSSLLLÉERE) 


C5D4 
C5D6 
C5D8 
C5D9 


LÉRESSÉLLLLSSS SE) 


CSDB 
CSDC 


LÉSRES SSL LL Lis, 


CSDD 
CSEO 
CSE3 
CSE6 


CSE9 
CHEC 
CSEF 
C5F2 


37 
C9 


2000 
9BOO 
0100 


O1 
08 
2A 
50 


2400 
B300 
0000 


C1 
09 
2A 
52 


3200 
FAOO 
AF 

OFOC 


01 
03 


1140BE 
013D00 
CDAFCA 
CDF4C9 


CDE8C9 
21D4C5 
CDODCE 
CD12B9 


SCF 
RET 


valeurs 
DEF 
DEF 
DEFW 


DEFB 
DEFB 
DEFB 
DEFB 


valeurs 
DEFW 
DEFW 
DEFW 


DEFB 
DEFB 
DEFB 
DEFB 


table pour format IBM 


0020 
009B 
0001 


O1 
08 
2A 
50 


;snombre enregistr,/piste, SPT 
;snombre blocs/disque, DSM 
>:nombre pistes pour système 
d'exploitation, OFF 
;décalage secteur 
;Secteurs/piste 

: longueur GAP 3 read/write 

>: longueur GAP 3 formater 


table pour format disque de données 


0024 
00B3 
0000 


C1 
09 
2A 
52 


table (7 octets) 


DEFW 
DEF 
DEFB 
DEFW 


0032 
OOFA 
AF 

OCOF 


;:Nombre enreg./piste, SPT 

;:Nombre blocs/disque, DSM 

;Nombre pour Système d'exploitation, 
OFF 

;:décalage secteur 

;Secteurs/piste 

;: longueur GAP 3 read/write 

;:longueur GAP 3 formater 


est copiée dans beu4,.. 


:délai plein régime moteur disque 
sticker délai pour moteur lecteur 


;valeurs pour longue boucle délai 


Table (2 octets) nécessaire en 882 


DEFB 01 

DEFB 03 
initialise DPHS, 
LD DE, OBE4CH 
LD BC, 003DH 
CALL OCAAFH 
CALL OC9F 4H 
CALL OCSE 8H 

LD HL, OC5SD4H 
CALL OC6ODH 
CALL 0B912H 


;sHead Unload Time pour FDC = 32 ms 
;sHead Load Time pour FDC = 16 ms 


DPBs, FDC et Event 


:Adresse Ram pour routines controller 
;:Nombre d’octets 

;sefface (de) à (de+bc) 

;initialise bloc paramètres 
disque/Header 

;arrêter moteur lecteur 

>; table paramètres FDC 

;sinitialiser paramètres lecteur FDC 

;KL ASK CURR SELECTION 


"ll 25e 


C5SF5 
C5F6 
CSF8 
CSFB 
CSFE 
C601 


RHONE DE DEEE DE D DEN 


C603 
C604 
C607 
CEOA 
C6EOB 
CEOC 


LR SLLLLLSLLLLLS, 


C6EOD 
C610 
C613 
C615 
C618 
C6TA 
C61D 
C620 
C621 
C622 
C623 
C624 
C625 
C627 
C628 
C62B 
CE2C 
C62D 


HR DH DE DE D DE DE 


UF 
0680 
216DBE 
11D6C9 
CDEFBC 
3€10 


ES 
2A66BE 
3266BE 
7D 
ET 
C9 


1144BE 
010700 
EDBO 
01/EFB 
3E03 
CDSCCA 
3AUABE 
3D 

07 

07 

07 

2F 
E6FO 
B6 
CDSCCA 
25 

2 
C35CC9 


C630 CD38C6 


C633 
C634 
C637 


DO 
3AUCBE 
CS 


LD 
LD 
LD 
LD 
CALL 
LD 


C, A Sélection Rom pour routine Event 
B, 80H :classe Event asynchrone 
HL,OBE6DH  ;bloc Event 

DE,O0C9D6H  ; Adresse de la routine Event 
OBCEFH 3KL INIT EVENT 

A, 10H 


189 fixe nombre tentatives lecture, nombre dans accu 


PUSH 
LD 
LD 
LD 
POP 
RET 


HL 


HL, (OBE66H) ; Nombre tentatives lecture 
(OBE66H),A 


A,L 
HL 


182 spécifier données lecteur 


LD 
LD 
LDTR 
LD 
LD 
CALL 
LD 
DEC 
RLCA 
RLCA 
RLCA 
CPL 
AND 
OR 
CALL 
INC 
LD 
JP 


DE,OBEU4UH  ; FDC-Ram +4 

BC, 0007H 

BC,OFB/EH  :registre d'état FDC 

A,03H ;:code opération Specify Drive Param, 
OC95CH :envoyer au FDC 

A, (OBEUAH) ;délai d'attente en millisec, (12) 

À 

OF OH >; donne AO = 12 ms Step Rate 

(HL) sHead Unioad-Time dans les bits 0 à 3 
0OC95CH envoyer au FDC 

HL 

A, CHL) ;Head Load Time 

0C95CH ;:Envoyer au FDC 


"88 déterminer état lecteur 


CALL 
RET 
LD 
RET 


0C638H 


NC 


A, (OBEUCH) 


:Routine déterminer état lecteur 
;=> erreur apparue 
;:Charger FDC-Status O0 dans accu 


+ KL 26. 


NAFRANNNENSERES Routine déterminer état lecteur 


C638 


C63B 
C63C 
C63F 
C642 
C64L 
C647 
C648 
CEUB 


LLLÉELLÉESSLSLSLLSL TS: 


CGUE 
C650 


HORDE D DE EE EEE 


C652 
C654 


C657 
C659 
C65C 
C6SF 
C660 
C661 
C662 
C663 
C665 


LÉRRLSL LS SSL LS SL: 


C666 


C669 
C66B 


HE DE ED DD DE DE 


C66D 
C6/0 
C671 
C6/72 
C675 


CD/76C9 


F5 
CD47C9 
017EFB 
3E04 
CDSCC9 
F1 
CDSCCI 
C31CC9 


3E45 
1802 


3E4D 
CD/76C9 


0611 
CD6DC6 
3AU8BE 
3D 

03 

03 

03 
20FA 
C9 


CD/76C9 


3E66 
0610 


2262BE 
67 
69 
2274BE 
48 


CALL 


PUSH 
CALL 
LD 
LD 
CALL 
POP 
CALL 
JP 


0C976H ;:Moteur marche, ajouter ticker pour 
délai 

AF ;:Accu contient No lecteur 

0C947H ;Sense Interrupt Status FDC 

BC,OFB/7EH  ;registre d'état FDC 

À, O4H ;code opération Sense Drive Status 

0OC95CH ;envoyer accu au FDC 

AF 3No lecteur 

OC95CH ;envoyer accu au FDC 

0C91CH :lire phase résultat FDC 


"85 écrire secteur e=Drv, d=Trk, c=Sec, hi-buffer 1/0 


LD 
JR 


À, 4CH ;:code d'opération écrire secteur 
OC654H 


"86 formater piste 


LD 
CALL 


LD 
CALL 
LD 
DEC 
INC 
[NC 
INC 
JR 
RET 


À, 4DH ;code d'opération formater piste 

0C976H ;Moteur marche, ajouter ticker pour 
délai 

B,11H ;:Nombre tentatives 

OC66DH :Read/Write/Format cont'd 

À, (OBEU8H) 

Â 

BC 

BC 

BC 

NZ, OC65FH 


“84 Iire secteur, e=Drv, d=Trk, c=Sec, hl=buffer I/0 


CALL 


LD 
LD 


0C976H ;:Moteur marche, ajouter ticker pour 
délai 

À, 66H ;code d'opération lire secteur 

B, 10H 


Read/Write/Format cont’'d 


LD 
LD 
LD 
LD 
LD 


(OBE62H),HL ;buffer 1/0 de 512 octets 


H, À ;:code d'opération FDC 

EC ;numéro secteur | 
(OBE74H),HL ;ranger code opérat. et secteur voulu 
C,B 3Nombre des tentatives de lecture 


ie 


C676 217CC6 LD 
C679 C3FFC6 JP 


HL, OC67CH 
OC6FFH 


;:programmer adresse FDC 
3chercher piste dans d, ‘Call (hl)' 


RAR RARES Droorammer :FDC. pour action Voulue 
C67C 2A74UBE LD HL, (OBE/74H) ; (code opér. et secteur voulu) 


C67F O17/EFB LD BC,OFB/7EH  ;:registre d'état FDC 

C682 7C LD AH :code d'opération FDC 

C683 CDSCCA CALL 0OC95CH :envoyer au FDC 

C686 7B LD AE Head Sel./Unit Sel., donc No lecteur 

C687 CDSCC9 CALL OC95CH ;envoyer au FDC 

C68A 7C LD A, H 3:code d'opération sorti dans accu 

C68B FEAUD CP LDH >: formater piste? 

C68D 2016 JR NZ,OCG6ASH  ;saut si lecture/écriture secteur 

C68F 3E14 LD À, 14H 

C691 CD59C9 CALL 0OC959H :0ctets/secteur de bloc param.disc au 
FDC 

C694 3E10 LD À, 10H 

C696 CD59C9 CALL 0C959SH >Ssecteurs/piste de bloc param.disc au 
FDC 

C699 3E12 LD À, 12H 

C69B CD59C9 CALL 0C959SH ; longueur GAP3 de bloc param, disc au 
FDC 

CGJÆ 313 LD À, 13H 

C6AO CDSCCA CALL OCASCH :0ctet remplissage, valeur bloc 
param, lecteur 13h 

C6A3 181C JR OC6C1H >Read/Write/Format Phase Execution 

POPRREEEE ontrée lecture/écriture d’un secteur 

C6AS 7A LD A, D >numéro piste 

C6A6 CDS5CC9 CALL 0OC95CH ;:envoyer accu au FDC 

C6A9  AF XOR À ;3No tête (pour lecteur double-tête) 

C6AA CDSCC9 CALE 0C95CH ;Envoyer accu au FDC 

C6AD 7D LD À; L ;: Numéro secteur 

CGAE  CDSCC9 CALL OC95CH :Envoyer accu au FDC 

C6B1 3E14 LD À, 14H :0ctets/Secteur 

C6B3 CD59C9 CALL 0C959H stiré de bloc param. disque au FDC 

C6B6 7D LD AL >numéro secteur comme dernier secteur 

C6B7 CDSCC9 CALL 0C95CH >:Envoyer accu au FDC 

C6BA 3%E11 LD A, 11H >Longueur GAP3 pour Read/Write 

C6BC CD59C9 CALL 0C95SH >stiré de bloc param. disque au FDC 

CGBF  3EFF LD À, OFFH 3DTL, doit être ffh 


s [2875 


HRREEEEEEEEEEEX Road/Write/Format Phase Execution 


CEC1 
C6ECA 
CECS 
C6EC8 
C6ECA 
CECA 
C6ECD 
C6CE 
C6CF 
C6DO 


HORDE EN D 6 


C6D1 
C6D2 
CEDS 
C6D6 
C6D9 
C6DB 
C6EDD 


LÉLLL. 


CEDF 
C6EO 
C6E2 
C6E3 
C6E A 
CGES 
C6E7 
CGE A 
C6EC 
CGEE 


LÉLLELÉLSLLLLSRSS, 


CGEF 
C6FO 
CF 
C6F3 
C6F4 
C6F5 
C6F7 
C6FA 


CDD1C6 
FB 
CDO7C9 
D8 
CO 
3AUDBE 
87 
D8 
AF 
C9 


F5 
CDSCC9 
7C 
2A62BE 
FE6E 
2018 
1806 


boucle de 


OC 
ED/8 
77 

OD 

23 
ED78 
F2E5C6 
E620 
20F1 
cg 


OC 

/E 
ED79 
OD 

23 
ED/8 
F2F5C6 
E620 


CALL OC6DTH ; Secteur 1/0 de 512 octets 

EI 

CALL 0C90/H :lire état FDC, Drive Ready Write 
RET 8 :Prot? 

RET NZ 

LD A, (OBE4DH) ;Statusreg.1 FDC 

ADD A, A 

RET C ;=> Carry est OK 

XOR Â 

RET 


Secteur Read/Write, 512 Octets 


DI 

CALL OC95SCH ;Envoyer accu au FDC 

LD AH 

LD HL, (OBE62H) ;buffer I/0 de 512 octets 

CP 66H ;Code d'opération lire secteur? 
JR NZ,OC6FSH  ;si non, à la boucle d'écriture 
JR OC6ESH ;:a la boucle de lecture 


lecture, lire données jusque FDC annonce fin du secteur 


INC C ; (bc) sur reg, données FDC 

IN A, (C) :lire octet de données 

LD (HL),A ;: Sauver dans buffer (h]l) 

DEC Ê ; (bc) sur registre d'état FDC 

INC HL augmenter pointeur de buffer 

IN A, (C) sretirer octet d'état 

JP P,OC6ESH s:attendre octet message Ready 

AND 20H >sfin exécution, commencer résultat? 
JR NZ,0OC6DFH  ;retirer prochain octet 

RET 


boucle d'écriture, écrire données jusque FDC annonce fin 


INC C ; (bc) sur registre de données FDC 
LD A, (HL) sretirer octet du buffer 

OUT (C),A ;et écrire sur disque 

DEC C ; (bc) sur registre d'état FDC 

INC HL ;:augmenter pointeur de buffer 

IN A, (C) :aller chercher octet d'état 

JP P,0C6FSH :prochain octet réclamé? 

AND 20H :fin exécution, commencer résultat? 


“IE 291 


C6GFC  20F1 JR NZ,OCGEFH  ;écrire prochain octet 
C6FE C9 RET 


RER cherche la piste indiquée dans d 


C6FF  3AGGBE LD À, (OBE66H) :;Nombre de tentatives de lecture 
C702 47 LD B,A 

C/703 CD2BC7 CALL 0C72BH ; Chercher piste 

C/706 D8 RET C ;3=> trouvé piste 

C/707 2819 JR Z,0C722H ;=> 10 échecs, alors READ FAIL 
C709 78 LD A,B :n0ombre tentatives restant 

C70A E604 AND O4H 

C70OC 2809 JR 2,0C71/H mettre flag recalibrate 

C70E D5 PUSH DE | ;spiste voulue 

C70F 1627 LD D, 27H spiste 39 

CA "CDObE7 CALL 0C/66H ; chercher piste 

C714 D1 POP DE ;:piste voulue 

C21S JéEC JR 0C703H snouvelle tentat. pour trouver piste 


RROERREREEEE Fixer flag recalibrate sur recalibrate 


C717 ES PUSH HL 

C718: SET LD A,1/H ;0ctet 17h dans paramètre disc actuel 
C71A CD63CA CALL OCA6 3H ;:déterminer bloc, fixer flag 

C71D 3600 LD CHL), OCH srecalibrate sur recalibrate 

C/71F ET POP HU 

C720 18E1 JR 0C703H 


POPOOEREEREXEE SOTTIT READ FAIL lors de recherche de piste 
C722 79 LD A, C 


C/25 C5 PUSH BC 

C724 CD/ACA GALL OCA7 AH >lecteur dans c, sortir message, CIR 
C727 C1 POP BC 

C/728 20D5 JR NZ,OC6FFH  ;chercher piste dans d, call (hl) 
C72A C9 RET 

LÉRELLLELLLLZLZZ. 

C72B CDS54C7 CALL OC754H >Cchercher piste dans d, CALL (HL) 
C72E D8 RET C 

C72F C8 RET Z 

C/30 CD47C9 CALL 0OC947H ;:Sense Interrupt Status FDC 

C733 CDS54C7 CALL OC7S4H 3Chercher piste dans d, CALL CHL) 
C736 D8 RET € 

CIST CE RET 2 


(VE: 


C/38 
C739 
C/3B 
C73C 
C73E 
C73F 
C/u0 
C7u3 
OL 
C/u7 
C7u8 
C/u9 
C/UA 
C/uB 
C7uD 
C7UE 


HE M HE DE HE CHE EM Hé 


C/4F 
C/50 
6753 
C754 
C757 
C/58 
C759 
C/5C 
C75D 
C75E 
CF 
C/761 
C/62 


KM té 6 EE 6 


C763 


C766 
C/67 
C768 
C/69 
C/6C 
C/6D 
C/6F 


7 A 
FE27 
05 
300A 
O4 

14 
CD66C/ 
15 
CD54C/ 
D8 

C8 

7 A 

B/ 
2002 
05 

CS 


15 
CD66C7 
14 
CD66C/ 
ES 

C5 
CDTEO0 
C1 

ET 

D8 
20F3 
05 

C9 


CD/6C9 


É 

D5 

6e 
3AGGBE 
47 
Er 
CD63CA 


LD 
CP 
DEC 
JR 
INC 
INC 
CALL 
DEC 
CALL 
RET 
RET 
LD 
OR 
JR 
DEC 
RET 


DEC 
CALL 
INC 
CALL 
PUSH 
PUSH 
CALL 
POP 
POP 
RET 
JR 
DEC 
RET 


A, D 
27H 
B 


;>numéro de piste 
;40 pistes 


NC, OC/48H 


B 

D 
0C/66H 
D 
OC/54H 
C 

À 

A, D 

Â 


;chercher piste dans d 


;chercher piste dans d, CALL CHL) 


; Numéro de piste 
; <>0? 


NZ,O0C/UFH 


B 


D 
0C/66H 
D 
OC/66H 
HL 

BC 
OOTEH 
BC 

HL 

C 


NZ,OC754H 


B 


;Chercher piste dans d 


;Chercher piste dans d 


; CALL CHL) 


;: Chercher piste dans d, CALL CHL) 


°87 chercher piste dans registre d 


CALL 


PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
CALL 


0C976H 


HL 
DE 
BC 


À, (OBE66H) 


B, À 
A,1/H 
OCA63H 


;Moteur en marche, ajouter ticker 
pour délai 


;Nombre de tentatives de lecture 


;:0ctet 1/h, flag recalibrate 
:du bloc param, disc actuel 


SMS IE 


C772 
C773 
C774 
C776 
C777 
C7/7A 
C77C 
CZ7F 
C/80 
C/83 
C785 
C/88 
C/8A 
C/8C 
C/8F 
C/91 
C792 
C/9u 
C295 
C796 
C797 
C/98 
C79A 
C/9B 
C/JÆE 
C7A0 
C/A3 
C/Au 
C/A7 
C7A8 
C7AB 
C7AC 
C7AE 
C7AF 
C/BO 
C/B1 
C/B4 
C7B5 
C/B7 


C7B9 
C/BA 


/E 

B/ 
201F 
C5 
01/EFB 
3E07 
CDSCCI 
/B 
CDOCCS 
3E28 
CDC/C7 
302A 
3E16 
CD63CA 
3600 
23 
36FF 
C1 

2B 

/E 

92 
2828 
C5 
01/EFB 
3E0F 
CDSCCA 
7B 
CDSCC9 
7 A 
CDSCC9 
96 
3002 
/E 

92 

72 
CDC/C7/ 
C1 
380B 
20BD 


05 
CAADCI 


LD 
OR 
JR 
PUSH 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
JR 
LD 
CALL 
LD 
INC 
LD 
POP 
DEC 
LD 
SUB 
JR 
PUSH 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
SUB 
JR 
LD 
SUB 
LD 
CALL 
POP 
JR 
JR 


DEC 
JP 


À, CHL) 

À 

NZ, 0C795H 
BC 

BC, OFB/EH 
A,0/H 
OC9SCH 
AE 
OC95CH 

À, 28H 
OC7C/H 
NC, OC/B4H 
À, T6H 
OCAG 3H 
CHL),00H 
HL 
(HL),0FFH 
BC 

HL 

À, (HL) 

D 
Z,0C/C2H 
BC 

BC, OFB/EH 
À, OFH 
OC9I5SCH 
A, E 
OC9SCH 
A, D 
0C95CH 
(HL) 

NC, OC/BOH 
A, CHL) 

D 

(HL),D 
OC/C/H 

BC 

C, OC7C2H 
NZ,0C776H 


B 
Z, OC9ADH 


>: dans accu 


=> pas de recalibrate 

;3b:= Nombre tentatives de lecture 
registre d'état FDC 

:Recalibrate piste 0 

;Envoyer accu au FDC 

Head Select/Unit Select 

:Envoyer accu au FDC : 
;sattendre 40 fois 12 millisecondes, 
3puis lire FDC Interrupt Status 


:0ctet 16h, DPB actuel 

c'est le numéro de piste actuel 
effacer 

;Octet 1/7 dans bloc param. disc 
}SUT -1 

3b:= Nombre tentatives de lecture 


numéro de piste atteint 
>comparer avec piste voulue 

3=> position atteinte 

:D:= Nombre tentatives de lecture 
:Registre d'états FDC 

:Code d'opération chercher piste 
:Envoyer accu au FDC 

Head Select/Unit Select 
;:Envoyer accu au FDC 

;Numéro de piste voulu 

;:Envover accu au FDC 

;ôter numéro de piste atteinte 
;Position atteinte 


attendre, puis lire FDC Inter, Stat, 
tout OK, piste trouvée 
;nouvelle tentative, 
avec Recalibrate 
;compteur tentatives écoulé? 
;alors traitement erreur 


éventuellement 


1122 


C7BD 
C7CO 


LÉSÉSSSS RL EE LS EL: 


C7C2 
C7C3 
C/C4 
C7C5 
C/C6 


LLLLLLLLLLLLL LE, 


C7/C7 
C/C8 
C/CB 
C/CE 
C7CF 
C7DO 
C/D2 
C/D5 
C7D8 
C/DA 
CDD 


LÉLÉLSLLLLLLLLLLEL, 


C7EO 
C/ET 
C/E3 
C/E4 
C/E6 
C/E7 
C/E8 
C/EA 


LÉRLLLLELLELLLLEL EL): 


C/EB 
C/EE 
C7/EF 


G7F1 
C/F& 
C/F5 


CD47C9 
18B4 


C1 
D1 
ET 
57 
C9 


F5 
3AUABE 
CDEOC/ 
F1 

3D 
20F5 
3AU4QBE 
CDEOC/ 
3E08 
CDSCCS 
C3F9C8 


F5 
3EF6 
3D 
20FD 
F1 
3D 
20F6 
C9 


2153BE 
SE 
3E03 


CDSCCA 
3C 
1159BE 


CALL 0CS4/7H :Sense Interrupt Status FDC 
JR 0C776H ;nouvelle tentative, éventuellement 
avec recalibrate 


piste a été trouvée 


POP BC 

PCP DE 

POP HL 

SCF ;:marque que tout est OK 
RET 


attend (Accu * 12)+ 16 ms, iit Int.Status FDC 
PUSH AF 


LD A, (OBEUAH) 

CALL OC/EOH ;:Boucle de tempor. 

POP AF 

DEC Â 

JR NZ,OC7C7H  ;Boucle de tempor. finie? 

LD À, (OBE4SH) 

CALL OC7EOH :Boucle de tempor. 

LD A,08H ;:Code d'opér. Sense Interrupt Status 
CALL OC95CH ;Envoyer accu au FDC 

JP 0C8F SH slire Int.Status FDC, Drive READY? 


attend accu*1 milliseconde 


PUSH AF :Accu est compteur de boucle 

LD À, OF6H ;valeur de délai 

DEC Â ;compte à rebours accu jusqu'à 0 

JR NZ,OC7E3H environ 1 milliseconde 

POP AF ;:diminuer compteur de boucle 

DEC A 

JR NZ,OC7EOH éventuellement nouvelle boucle 

RET 

LD HL,0BES3H  ;buffer HS/US 

LD E, CHL) >numéro lecteur dans e 

LD A,03H :valeur bloc param.disc 03h, masque 
b1oc 

CALL OCASCH ; charger dans accu 

INC A augmenter Db1oc masque 

LD DE, OBESSH 


El" 


C/F8 
C/FS 
C7FA 
C7FD 
C7FF 


LÉESSSLÉSLLLLLLLZ) 


C800 
C803 
C804 
C805 
C806 
C807 
C80A 
C80C 
C80D 
C80E 
C810 
C811 
C812 
C814 
C815 


LÉELLLLLLLLLLLZLS) 


C816 
C817 
C81A 


RARES encore DIace pour cet 


C81B 
C81C 
C81F 
C820 
C821 
C822 
C823 
C824 
C825 
C826 
C829 
C82A 
C82C 


12 

13 
010300 
EDBO 
cg 


1159BE 
1AÂ 

B/ 

C8 

13 
2153BE 
0603 
1 

AE 
2006 
13 

23 
10F8 
37 

cg 


AF 
3259BE 
C9 


F2 
2159BE 
35 

23 

2E 

23 

23 

34 

AF 
CDSCCA 
BE 
2004 
3600 


LD 
INC 
LD 
LDIR 
RET 


LD 
LD 
OR 
RET 
INC 
LD 
LD 


XOR 
JR 
[NC 
INC 
DUNZ 
SCF 
RET 


XOR 
LD 
RET 


PUSH 
LD 
DEC 
INC 
LD 
INC 
INC 
INC 
XOR 
CALL 
CP 
JR 
LD 


(DE), A 
DE 
BC, 0003H 


DE, OBESSH 
A, (DE) 

Â 

Z 

DE 

HL, OBES3H 
B, 03H 

À, (DE) 
CHL) 
NZ,0C816H 
DE 

HL 

OC80CH 


A 


(OBES5SH), A 


AF 
HL,OBES5SH 
CHL) 

HL 

E, CHL) 

HL 

HL 

CHL) 

) 

OCASCH 
CHL) 
NZ,0C8350H 
CHL) , OH 


;et ranger 
; transférer lecteur, piste et numéro 
enregistrement de be53h en beSah 


;sbuffer HS/US 
:3 octets, lecteur, piste et secteur 
;3(hi) = (de)? 


;=> différent, erreur 


>prochain Octet 
>:marque OK 


enregistrement? sinon piste suivante? 


;>No lecteur dans e 


;No enregistrement dans la piste 
augmenter numéro enregistrement 
soctet faible enregistrements/piste 
;:de bloc param,.disc dans accu 

numéro enregistrement maxi atteint? 
=> pas encore atteint 

:fixer enregistr. dans la piste sur 0 


mA. 


C82E 
C82F 
C830 
C831 


HE EH HE HE EE 


C832 
C833 
C836 
C838 
C83B 
C83C 
C83D 
C83E 
C&41 
C842 
C8uu 
C8u7 
C8uA 
C&uB 
C8uc 
C8uF 
C850 


HORMONE 


C851 
C852 
C853 


HOMO HE HE HE DH HE 


C854 
C857 
C858 
_ C859 
C85C 
C85F 
C860 
C861 
C862 
C863 
C864 
C865 


2B 
34 
F1 
C9 


F5 
CDS54C8 
3819 
CD6FC8 
6] 

DO 

C5 
CD80C8 
F1 
3806 
CDA2C8 
CD66C6 
F5 

9F 
325EBE 
F1 

C9 


F1 
s 
CS 


3ASEBE 
B7 
C8 
0153BE 
2156BE 
SE 
OA 
AE 
CO 
03 
22 
OA 


DEC 
INC 
POP 
RET 


PUSH 
CALL 
JR 
CALL 
POP 
RET 
PUSH 
CALL 
POP 
JR 
CALL 
CALL 
PUSH 
SBC 
LD 
POP 
RET 


POP 
SCF 
RET 


LD 
OR 
RET 
LD 
LD 
LD 


XOR 
RET 
INC 
INC 
LD 


HL shl = beSb, numéro de piste 


(HL) augmenter numéro de piste 

AF 

AF 

OC854H 

C,0C851H 

OC86FH 

BC réparer pile pour cas d'erreur 

NC ;=> erreur 

BC ;pas erreur, bc à nouveau sur Ia pile 
0C880H teste si fin secteur 

AF 

C,OC84AH ;:=> enreg. déjà dans buffer secteur 
OC8A2H No secteur dans c,buffer sect.dns hl 
0OC666H >lire secteur 

AF traiter erreur éventuelle 

À, A >ffh =pas d'erreur en lecture secteur 
(OBESEH), A 

AF 

AF 


À, (OBESEH) lire flag OK secteur 


À 

À 

BC,OBES3H  ;buffer HS/US 

HL, OBE56H 

E, CHL) :No lecteur dans e 

A, (BC) >charger ancien No lecteur dans accu 
(HL) >: identiques? 

NZ 3Si non, alors RET 

BC :ancien numéro de piste 
HL nouveau numéro de piste 
A, (BC) 


“LE DS 


C866 
C86/ 
C368 
C86B 
C86C 
C86D 
C86E 


HORREUR OH HU 


C86F 
C872 
C874 
C875 
C876 
C877 
C878 
C879 
C87A 
C8/D 


HORMONE HE HE 


C880 
C883 
C886 
C887 
C888 
C889 
C88A 
C88B 
C88C 
C88D 
C890 
C891 


HR HOHOCHOOH HE HH H 


C892 
C893 
C894 
C896 


AE 
CO 
CD92C8 
AE 
CO 
37 
C9 


215ÈBE 
3600 
2B 

E 

B/ 

37 

C8 

34 
CDA2C8 
C3UECE 


2156BE 
0153BE 
OA 
17 
5) à 
23 
03 
OA 
PT 
CD92C8 
77 
C9 


03 

23 
ETS 
CDSCCA 


XOR 
RET 
CALL 
XOR 
RE 
SCF 
RET 


LD 
LD 
DEC 
LD 
OR 
SCF 
RET 
[NC 
CALL 
JP 


LD 
LD 
LD 
LD 
LD 
[NC 
INC 
LD 
LD 
CALL 
LD 
RET 


(HL) 
NZ 
0C892H 
(HL) 
NZ 


HL, OBESEH 
CHL), O0H 
HL 

A, CHL) 

À 


Z 

CHL) 
OC8A2H 
OCGUEH 


HL, OBES56H 
BC, OBES3H 
A, (BC) 
CHL), À 
E, À 

HL 

BC 

A, (BC) 
CHL), A 
0C892H 
CHL), À 


:identiques? 
;:Si non, alors retour 
; dépassement lors d'écriture enreg. 


;:Si dépassement, alors retour 
:tout est OK 


sannuler flag OK lire secteur 


:(hl)=> flag écrire secteur 


;3=> Flag à O0, ne pas écrire 


;calculer No secteur effectif 
785 écrire secteur 


>buffer HS/US 


;:valeur Head Select/Unit Sel, dans e 


: détermine No sect.,teste si overflow 


détermine No secteur, teste si dépassement enregistrement 


[NC 
[NC 
LD 
CALL 


BC 
HL 
À, 15H 
OCASCH 


; (numéro enregistrement) 


;charger nombre enregistrements par 
secteur dans accu 


eue 


C899 
C89A 
C89B 
C89D 
C8 
C8A0 


LÉSSLSLRSLSELS SES, 


EDSBS6BE 


C8A2 
C8A6 
C8A8 
C8AB 
C8AE 
C8AF 
C8B0 
C8B3 


ON DE 6 


C8B6 
C8B7 
C8B8 
C8B9 
C8BA 
C8BC 
C8BF 
C8c2 
C8C5 


D7 
OA 
CB3A 
D8 
CB3F 
18F9 


3EOF 
CDSCCA 
2158BE 
86 

4F 
21B002 
C39FCA 


ES 

D5 

C5 

F2 
SEFF 
325DBE 
CDD6C8 
CD1BB9 
1 80A 


LD 
LD 
SRL 
RET 
SRL 
JR 


calcule 
LD 

LD 

CALL 

LD 

ADD 

LD 

LD 

JP 


charger numéro enreg. dans accu 


>» OO © > © 


OC89BH 


numéro secteur effectif 
DE, (OBE56H) ; No lecteur et piste dans det e 


À, OFH ; charger dns accu bloc param.disc Ofh 
OCASCH ;premier numéro secteur d'une piste 
HL,OBESS8H  ; (numéro secteur voulu 0-8) 

A, (HL) ;donne No du secteur à lire 

C,A ; Numéro Secteur dans c 

HL, 02B0H ; déterminer adresse buffer secteur 
OCA9IFH shl=hl+iy 


transférer enregistrement dans buffer secteur écriture 


PUSH 
PUSH 
PUSH 
PUSH 
LD 
LD 
CALL 
CALL 
JR 


HL ;:Sauver tous les registres 

DE 

BC 

AF 

A,OFFH ;écrire marque enregistrement 
(OBESDH),A ;Read/Write flag secteur 
OC8D6H ;alimenter bc, de et hl 


0B91BH 
OC8D1H 


;KL LDIR, transférer enreg.dns secteur 
:restaurer tous les registres 


** transférer enregistrement de buffer secteur dans buffer enregistrement 


C8C/ 
caca 
C8C9 
C8CA 
C8CB 
C8CE 
C8CF 
C8D1 
C8D2 
C8D3 
C8D4 
C8D5 


ES 
D5 
C5 
F5 
CDD6C8 
EB 
EDBO 
F1 
C1 
D1 
ET 
C9 


PUSH 
PUSH 
PUSH 
PUSH 
CALL 
EX 
LDIR 
POP 
POP 
POP 
POP 
RET 


HL ; Sauver tous les registres 
DE 
BC 
AF 
OC8D6H 
DE, HL 


:alimenter bc, de et hl 
:de buffer enreg, dans buffer secteur 
AF ;:restaurer tous les registres 
BC 
DE 
HL 


“OpL'oe 


RH HR XX À de 


C8D6 
C8D9 
C8DA 


C8DC 
C8DF 
C8 0 
C8] 
C8E2 
C8E3 
C8&6 
C8E9 
C&E A 
C8EB 
C8EC 
C8EE 
C8EF 
C8F2 
C8F5 
C8F8 


EN NÉ NN EN 6 


C8F9 
C8FC 
C8FD 
C900 
(902 
C903 
C905 


2153BE 
DE 
SE TS 


CDSCCA 
3D 

23 

23 

A6 
118000 
213002 
3C 

19 

3D 
20FC 
EB 
CDS8CA 
2A6OBE 
018000 
C9 


CD1CC9 
D8 
3AUCBE 
E608 
C8 
Er 
180D 


LD 
LD 
LD 


CALL 
DEC 
INC 
ENC 
AND 
LD 
LD 
FNC 
ADD 
DEC 
JR 
EX 
CALL 
LD 
LD 
RET 


:= début enreg. 


HL, OBES53H 
E, (HL) 
À, 15H 


OCASCH 

À 

HL 

HL 

CHL) 

DE , 0080H 
HL,0230H 
À 

HL, DE 

À 

NZ, OC8EAH 
DE, HL 
OCA98H 


HL, (OBE60OH) 


BC, O080H 


dans buffer secteur 
sbuffer HS/US 
Head Select/Unit Select dans e 
;:charger dns accu valeur bloc 
param.disc 15h 
;nombre d’enregistrements par secteur 


; (numéro d'enregistrement) 

; longueur d'enregistrement 128 octets 
; décalage par rapport buffer enreg. 
;:correction nécessaire 

:calcule adresse du prochain enreg,. 
:dans buffer secteur 


:résultat dans hl] 

:de=de+iy, de => prochain enregistr. 
adresse buffer enreg. dans h] 
;taille enreg, 128 octets dans bc 


lire registre d'état FDC, tester sf DRIVE READY 


CALL 
RET 
LD 
AND 
RET 
LD 
JR 


OC91CH 
C 


À, (OBE4CH) 


08h 

2 

A, 15H 
OC9T4H 


:lire phase résultat FDC 

;=> aucune erreur apparue 

registre d'état FDC 0 

;Drive Ready? 

;=> Drive est READY 

:message d'erreur 13, Disc is missing 


FRERES Lire registre d'état FDC, disquette protégée contre écriture 


C90/ 
C90A 
C90B 
C90C 
C90F 
C911 
C912 
C914 
C917 
C918 


CDF9C8 
D8 

CO 
3AU4DBE 
E602 
C8 
3E12 
CD/ACA 
D8 
CAADCI 


CALL 
RET 
RET 
LD 
AND 
RET 
LD 
CALL 
RET 
JP 


OC8F SH 
C 
NZ 


À, (OBE4DH) 


02H 

Z 

À, 12H 
OCA7AH 

C 
Z,OC9ADH 


:phase résultat FDC, Drive READY? 
;=> tout est OK 


sregistre d'état FDC 1 

:disquette protégée contr l'écriture? 
3=> n'est pas protégé 
:mess.d'erreur12, Disc is write prot, 
:Drive dans c, sortir message, CIR 
;"Ignore‘ 

; ‘Cancel’ => fin 


bee 


C91B 


LS SR RSSSSSSSS: 


C9ic 
C91D 
C9IE 
C920 
C923 
C924 
C926 
C928 
C92A 
C92B 
C92D 
C92E 
C92F 
C930 
Cg31 
C933 
C934 
C936 
C938 
C93A 
C93C 
C93D 
C93E 
Cg40 
Cg41 
C942 
C943 
cg4u 
C94s 
C946 


OH HE DE DE DE MEMEHECHEE 


C947 
C9u8 
C9UB 
C94D 
C950 
C953 
C355 


C9 


ES 
D5 
1600 
214CBE 
ES 
ED/8 
FECO 
38FA 
OC 
ED78 
OD 
77 
23 
14 
3E05 
3D 
20FD 
ED/8 
E610 
20E 8 
ET 
/E 
E6CO 
2B 
72 
D1 
ET 
CO 
37 
C3 


C5 
01/EFB 
3E08 
CDSCCI 
CD1CCI 
FE80 
20F4 


RET 


lit et place octets 


PUSH 
PUSH 
LD 
LD 
PUSH 
IN 
GP 
JR 
INC 
IN 
DEC 
LD 
INC 
INC 
LD 
DEC 
JR 
IN 
AND 
JR 
POP 
LD 
AND 
DEC 
LD 
POP 
POP 
RET 
SCF 
RET 


HL 

DE 

D, OOH 
HL,OBEUCH 
HL 

A, (C) 
OCOH 

C, OC924H 
C 

A, (C) 


C 


(HL),A 

HL 

D 

À,05H 

À 
NZ,0C933H 
A, (C) 

10H 

NZ, 0C924H 
HL 

A, CHL) 
OCOH 

HL 

(HL),D 

DE 

HL 

NZ 


; 'Retry' 


de phase résultat FDC dans buffer 


;:nombre d'octets Ius 
:adresse buffer phase résultat 


>sregistre d'état FDC dans bc 
attendre jusqu’à ce que 

z3octet d'état ready 

;:adresse registre données FDC dans bc 
;Interrupt-Statusregister 

:adresse registre d'état FDC 

> Sauvegarder dans (hl) 


;compteur nombre octets retirés 
;courte boucle d'attente 


‘+ 


:lire octet d'état 
;3Bit FDC Busy 
;instruction pas encore terminée 


;isoler code interr,, bits 687 de SRO 


>: Sauver nombre octets phase résultat 


;erreur apparue! 


;terminé sans erreur 


Sense Interupt Status FDC 


PUSH 
LD 
LD 
CALL 
CALL 
CP 
JR 


BC 

BC, OFB/EH 
À, 08H 
OC95CH 
0C91CH 
80H 
NZ,0C94BH 


sregistre d'état FDC 

;:code d'opér, Sense Interrupt Status 
;envoyer accu au FDC 

:lire phase résultat FDC 

;message ’INVALID COMMAND'? 

;Sinon essayer encore une fois 


Lise 


C957, 01 POP BC 
C9g58 cg RET 


RRRREREEEEEEE Charger dans accu octet du bloc param.disc (DPB) et sortir 
C959 CDSCCA CALL OCASCH ; charger dans accu valeur DPB 


FAAANARNRENFERS. toste FDC, envoie accu à FDC s'il y 4 lieu 


C95SC F5 PUSH AF >; Valeur à sortir deux fois sur pile 
CD F5 PUSH AF 

C9SE ED/8 IN A, (C) 3Bit /, tester Request for Master 
C0 87 ADD À,A 

C961  30FB JR NC,OC9SEH  ;attendre que nouvel octet réclamé 
C963 87 ADD À, A 3Bit 6,direction données vers FDC 
C964 3003 JR NC,O0C969SH ;Test si entrée ou sortie 

C966 F1 POP AF >ne pas envoyer octet au controller, 
C7 F1 POP AF ;FDC enverra octet au processeur 
C968 C9 RET 


RSR ACCES transmis autFDé 


C969 F1 POP AF ;:valeur à Sortir de la pile 

C96A OC INC C :registre données FDC dans bc 

C96B ED/9 OUT (C),A ;envoyer octet au FDC 

C96D OD DEC C registre d'état FDC dans bc 

C96E  3E05 LD À, OSH j 

C9/0 3D DEC Â >:courte boucle d'attente 

C9/71 00 NOP >compte à rebours accu de 5 à zéro 
C9/72  20FC JR NZ,0C9/0H 

C9/4 F1 POP ÂF restaurer valeur dans accu 

C975 C9 RET 


RRRREEEEEE MOtEUr en marche, manipuler pile, (hl) sur buffer I/0 


C9/6 22/76BE LD (OBE/6H),HL ; Stockage provisoire 

C9/9 E3 EX (SP), RL sretirer adresse retour de la pile 
C9/7A DS PUSH DE Sauver bc et de 

C97B C5 PUSH BC 

C9/C ED/364BE LD (OBE64H),SP ;sauver pointeur de pile 

C980 ES PUSH HL adresse retour à nouveau sur la pile 
C981 21ADC9 LD HL,OCS9ADH . 
C984 E3 EX (SPY;HE 3RETURN à nouveau -> h]1,C9AD sur pile 
C985 ES PUSH HL :adresse RETURN sur pile définitivem. 
C986 D5 PUSH DE Sauver de, bc, af,un RET après cette 
C987 C5 PUSH BC routine conduit à C9AD! 


- 1] 40 - 


C988 F5 PUSH AF ;:pas simple, n'est-ce pas? 


C989 CDDFC9 CALL OCC9DFH :Del Ticker 

C98C 3ASFBE LD À, (OBESFH) ;flag moteur 

C98F B/ OR Â ;: tester 

C990 2014 JR NZ,0C9A6H  ; Moteur tourne déjà 

C992 O017/EFA LD BC,OFA/7EH  ;adresse port commande moteur 
C995 3E01 LD A,O1H 

C997 ED79 OUT (C),A >mise en marche moteur 

C999 EDSBUUBE LD DE, (OBEUUH) ;nombre de ticks 

C99D CDCDC9 CALL OC9CDH > appeler add ticker, délai plein rég, 
C9AO  3ASFBE LD À, (OBESFH) ;flag moteur 

C9A3 B7 OR Â ;: tester 

C9AU  28FA JR Z, OCHACOH attendre que flag moteur <> O0 
C9A6G F1 POP AF sretirer af, bc, de de pile 
C9A7 Ci POP BC 

C94A8 D] POP DE 

C9AG 2A76BE LD HL, (OBE76H) ;(h1l) pointe sur buffer I/0 
CHAC C9 RET ;sle prochain RET va en C9AD! 
LÉLLLLLLLLLLLZLZ, 

C9AD ED/BGUBE LD SP, (OBEGUH) ;rangé ici pour C97C 

C9BT F5 PUSH AF 

C9B2 EDSBUGBE LD DE, (OBEUGH) ;nombre de ticks 

C9B6 CDCDC9 CALL OC9CDH :appeler Add Ticker 

C9B9 F1 POP AF ; 

C9BA C1 POP BC .sbc, de et hl ont été PUSHéSs 
C9BB D1 POP DE ;:vers C979 à C97B 

C9BC El POP HL 

C9BD 3E00 LD À, OOH 

C9BF D8 RET C 

C9CO 214CBE LD HL,OBEUCH 

C9C3 7E LD A, CHL) 

C9C4 E608 AND 08H 

G9C6: 25 INC HL 

C9C7 B6 OR (HL) 

C9C8 F640 OR 40H 

C9CA 2B DEC HL 

C9CB 2B DEC HL 3(hl) => OBEUR 

C9CC C9 RET 


ED D D D EE 


C9CD 2167BE LD HL,OBE6/H ;Adresse Tick Block 


AL 


C9DO 010000 


C9D3 


6 DE D D 


C9D6 
C9D9 
C9DA 
C9DB 
C9DC 
C9DD 
C9DF 
C9E2 


LÉLRSRSLÉSLLLLLLLLL, 


CSS 
C8 
CE A 
C9ED 
CŒF 
C9FO 
C9F3 


LÉLLSLLLELLLLLZL: 


C9F4 
CF 7 
C9FA 
C9FD 
CAOO 
CAO3 
CAO6 
CAOA 
CAOB 
CAOE 
CA11 
CA12 
CATS 
CA18 
CATA 
CAB 
CAC 
CATD 
CATF 


C3E9BC 


215FBE 
/E 

2F 

77 

B/ 
2806 
216/BE 
C3ECBC 


CDDFC9 
3E00 

01/EFA 

ED/9 

AF 

325FBE 

C9 


212002 
11D001 
CDO3CA 
211002 
119001 
CD98CA 
ED5342BE 
D5 
CD9FCA 
22U0BE 
ES 
2143CA 
011900 
EDBO 
4B 

42 

ET 
3600 
23 


LD 
JP 


Routine 
LD 

LD 

CPL 

LD 

OR 

JR 

LD 

JP 


CALL 


LD 
OUT 
KOR 
LD 
RET 


BC, O0O0H 
OBCESH 


Tick 
HL, OBESFH 
A, (HL) 


(HL), A 

A 

Z, OCJESH 
HL,OBE6/7H 
OBCECH 


OC9DFH 

LD 
BC, OFA/EH 
(C),A 
À 


(OBESFH), À 


>:Reload Count 
;KL ADD TICKER 


>: flag moteur 

sest O ou ffh 

>devient ffh ou O0 

> Sauvegarder 

>Si flag moteur zéro 

;=> moteur tourne 

;Sinon Adresse Tick Block 

;KL DEL TICKER, déclencher ticker 
; moteur 


À, OOH ; 
;sport moteur 
>restaur flipflop moteur,moteur coupé 


-annuler flag moteur 


organiser Disc Parameter Header et blocs DP 


LD 
LD 
CALL 
LD 
LD 
CALL 
LD 
PUSH 
CALL 
LD 
PUSH 
LD 
LD 
LDIR 
LD 
LD 
POP 
LD 
INC 


HL, 0220H 
DE, 01DOH 
OCAO3H 
HL,0210H 
DE , 0190H 
OCA98H 


(OBE42H), DE 


DE 
OCA9FH 


(OBE4OH) , HL 


HL 
HL, OCA43H 
BC, 001 SH 


CE 
B, D 
HL 
(HL) , 00H 
HL 


:décalage pour DPH lecteur B 
;décalage pour DPB lecteur B 
sinitialiser DPH et DPB lecteur B 
décalage pour DPH lecteur A 
:décalage pour DPB lecteur A 
:de=de+iy, début du DPB 

>ranger adresse 

set ranger sur la pile 

shl=hl+iy, début du DPH 

>ranger également 

set sur la pile 

:Adresse du DPB standard 

}25 :OCLeTS 

; transfère à adresse correcte 
ranger début zone cheksum dans bc 


;: début du DPH, soit XLT 
conversion éventuelle facteur SKEW 
;non utilisé, donc 0 


= Fr-42-< 


CA20 
CA22 
CA25 
CA26 
CA29 
CA2C 
CA2D 
CA2E 
CA2F 
CA3O 
CAS 
CA32 
CA33 
CA3H 
CA3S 
CA36 
CA37 
CA38 
CA39 
CA3A 
CASD 
CASE 
CA3F 
CAUO 
CA] 
CA42 


HE HE D NME HE EE 


CAU3 
CAUS 
CAUG 
CAU7 
CAUS 
CAU9 
CAUB 
CAUD 
CAUF 


HE HE HN HE M JE EE 6 


CAUB 
CA53 
CASA 


3600 
110700 
iÈe 
113002 
CD98CA 
73 

25 

72 

2. 

D1 

73 

23 

72 

22 

71 

23 

70 

23 

EB 
211000 
09 

EB 

F9 

25 

72 

C9 


2400 
03 
07 
00 
AAOO 
3F00 
CO00 
1000 
0200 


41 
09 
2A 


LD CHE), OOH 
LD DE, 000/H 
ADD Na DE 

LD DE, 0230H 
CALL OCAI8H 
LD (HL),E 
[NC HL 

LD CHL),D 
[NC HL 

POP DE 

LD CHL),E 
[NC HL 

LD CHL),D 
[NC HL 

LD CHL),C 
[NC HL 

LD CHL),B 
INC HL 

EX DE, HL 

LD HL,0010H 
ADD HL, BC 

EX DE, HL 

LD (HL),E 
[NC HL 

LD CHL),D 
RET 


3; (h1)=> DIRBUF 

; décalage 128 octets pour buffer DIR 
>de=de+iy, adresse du buffer DIR 
-sentrer dans DIRBUF 


; début des DPBS 
entrer dans le header 


3 (hl)=> CSV, Checksum Vector 
; (bc)=> adresse de zone checksum 
entrer dans le header 


>; (h1)=> ALV, Allocation Vector 

; Stockage provisoire dans de 

; décalage entre zone Checksum et 
;z0one allocation 

3 (h1)=> ALV 

:entrer zone allocation dns le header 


DPB standard bloc paramètres disque 


DEF 24H 
DEFB 03H 
DEFB 07H 
DEFB 00H 
DEFW OOA AH 
DEFW 003FH 
DEFW OOCCH 
DEFW O0OTOH 
DEFW 0002H 


extensions des DPBs, 


DEFB HTH 
DEFB 09H 
DEFB 2AH 


; SPT enregistrements par piste 

> BSH Block Shift 

> BLM Block Mask 

>:EXM Extent Mask 

;DSM nombre blocs libres -1 

; DRM nombre entrées Dir -1 

; ALO affectation Directory 

;CKS nombre d'entrées à contrôler 
>0FF décal. piste pour pistes système 


pas prévu dans CP/M standard 
; décalage secteur pour reconn. format 
>nombre secteurs/piste 
> longueur GAP3 pour Read/Write 


HUE cs. 


CA5S. 52 DEFB E2H ; longueur GAP3 pour formatage 


CAS6 ES DEFB ESH ;soctet remplissage pour formatage 
CA57 02 DEFB 02H soctets/secteur pour FDC, 512 octets 
CAS8 Où DEFB O4H ;>nombre enregistrements par secteur 
CASJ O0 DEFB 00H ;trois mémoires provisoires 

CASA O0 DEFB 00H 

CASB 00 DEFB 00H 


ORREHEEEXE Charger dans accu valeur DPB (A890h+(Drive*40h)+Accu) 
CASC ES PUSH HL 
CASD CD63CA CALL OCA6 3H 


CA6O 7E LD A, CHL) ;:Accu =(Table+(drive*40Oh)+Accu) 
CA61 El POP HL 
CA62 C9 RET 


PR Ans Pointeur: sur: DPB-actüel +-acct 


CA63 D5 PUSH DE 

CA6G4  2AU2BE LD HL, (OBEU2H) ;pointeur sur DPB lecteur 0 

CA67 D DEC E Head Select/Unit Select -1 

CA68 114000 LD DE, 0040H : décalage des DPBS lecteur 0 et 1 
CA6B 2001 JR NZ, OCA6GEH  ;saut si drive 0 actuel 

CA6GD 19 ADD HL, DE > déterminer début table lecteur 1 
CAGE SF LD E, A ;ACCU pointe sur octet voulu 

CA6GF 19 ADD HL, DE :d=0, e=octet voulu 

CA/0 D1 POP DE 

CA/71 C9 RET 


POPOOERERESEE 81h messages d'erreur Disc Controller on/off 


CA/72 2A7/8BE LD HL, (OBE/8H) ;:ranger ancienne valeur dans L 

CA/75 3278BE LD (OBE/8H),A entrer nouvelle valeur 

CA/78 7D LD A,L ;>transmettre ancienne valeur dns accu 
CA79 C9 RET 


PAANREIEHANAERE SÂ autorisé, sortir message d'erreur 


CA7A F5 PUSH AF >numéro d'erreur dans accu 

CA/B 3A/78BE LD À, (OBE/8H) :;:Flag pour messages d'erreur 

CA/E B/ OR Â ; tester 

CA7F 2005 JR NZ,OCA86H ; => pas de Sortie autorisée 

CA81 F1 POP AF :répéter numéro d'erreur 

CA82 UB LD CE numéro lecteur pour sortie dans C 
CA83 C3B8CA JP OCAB8H ssortir message système, C, I or R 
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Fr mnt. III Das te Sortie Autor.isée 


CA86 
CA8/ 
CA88 


LS RSS RSELLS SES. 


CA89 
CASA 
CA8B 
CA8C 
CASD 
CASE 
CA8F 


LÉRRÉLLÉESLS LS SES SZ. 


CA9O 
CA92 
CA93 
CA94 
CA95 
CA96 
CA97 


ED DE DE DE DE DE D EE 


CA98 
CA9A 
CA9B 
CA9C 
CA9D 
CAIE 


LES LSLLSLÉRLRS RS: 


CAF 
CAAO 
CAA2 
CAAZ 
CAAL 
CAAS 


HE HE ED EE DE D EE 


CAAG 
CAA8 


Fi] 
AF 
C9 


FF 
FF 
FF 
FF 
FF 
FF 
FF 


FDES 
E3 
09 
44 
LD 
El 
C9 


FDES 
ES 
19 
EB 
ET 
C9 


D5 
FDES 
D1 
19 
D1 
CS 


FE6I 
D8 


POP 
XOR 
RET 


AF 
À annuler accu et flags 


inutilisé Jusqu'à ca90 


RST 
RST 
RST 
RST 
RST 
RST 
RST 


BC = BC 
PUSH 

EX 

ADD 

LD 

LD 

POP 

RET 


DE = DE 
PUSH 

EX 

ADD 

EX 

POP 

RET 


HE = HL 
PUSH 
PUSH 
POP 
ADD 
POP 
RET 


38H 
38H 
38H 
38H 
38H 
38H 
38H 


+ IY 

IY 

(SP),HL >iy dans hI, h]l sur pile 
HL, BC ajouter bc et hi 

B,H résultat dans bc 

C;L 

HL restaurer hl 


+. LY 

IY 

(SP): HL ;iy dans hl, hl sur pile 
HL, DE ajouter de et hl 

DE, HL srésultat dans de 

HL restaurer hi 


+ ÎY 

DE 

Y 

DE ;:iy dans de 

HL, DE ajouter hi et de 
DE >restaurer de 


convertir minuscules en majuscules 


CP 
RET 


61H >:'a' ou Supérieur? 
C 


e H45 


CAA9 
CAAB 
CAAC 
CAAE 


KE EE EE EEE 


CAAF 
CABO 
CAB1 
CAB2 
CAB3 
CAB4 
CAB5 
CAB/ 


LÉRSSRÉLSELLLLLSLS, 


CAB8 
CABB 
CABD 
CACO 
CAC3 
CACS 
CAC8 
CACB 
CACE 
CADO 
CAD2 
CAD& 
CADS 
CAD7 
CAD9 
CADB 
CADD 
CAEO 


HO HE EE EE EE 


CAE2 


LÉRRÉSSSSSSELSÉRSE 


FE7B 
DO 
CEEO 
C9 


AF 
12 
13 
OB 
78 
B1 
20F8 
C9 


CDEBCA 
3E14 
CDEBCA 
CDO9BB 
38FB 
CD81BB 
CDO6BB 
CDAGCA 
FEUZ 
2811 
FE49 
37 
2800 
FÉS2 
2807 
3E07 
CDSABB 
186 


B/ 


CAE3 CDSABB 
CAE6 CD84BB 
CAE9 3E00 


CP 7BH >; 'z" où inférieur? 

RET NC 

ADD À, OEOH ;convertir en majuscules 
RET 


vider mémoire (de) à (de)+(bc) 


XOR À annuler accu 

LD (DE),A ;Vvider mémoire 

INC DE >prochaine adresse 
DEC BC >diminuer nombre 

LD À,B >stester si bc = 0 
OR C 

JR NZ,OCAAFH  ;vide (de) à (de+bc) 
RET 


sortir erreur dans À, puis tester ‘IGN, RET, CHAN’ 


CALL OCAEBH >Sortir message système dans a 
LD A,14H message système 20 

CALL OCAEBH >chercher et sortir 

CALL OBBOSH ;KM READ CHAR 

JR C, OCACOH 

CALL OBB81H 3 TXT CUR ON 

CALL OBBO6H >KM WAIT CHAR 

CALL OCAAGH ;convertir en majuscules 
CP 43H ;'C' = Cancel 

JR Z,OCAE3H 3=> Z=1,C=0 

CP 49H ;>'I" = Ignore 

SF 3=> /=1,C=1 

JR Z,OCAE3H 

CP D2H 3'R" =Retry 

JR Z,OCAE2H 3=> 1=0,C=0 

LD À, 07H caractère "BELL 

CALL OBBSAH > TXT OUTPUT, un bip 

JR OCAC8H attendre nouvelle entrée 


Entry Retry, annuler flags 
DR A 


Entry Cancel et Ignore, sortir caractère dans accu 


CALL OBB5AH ; TXT OUTPUT 
CALL OBB84H > TXT CUR OFF 
LD A, OOH >Sortir "CR/LF' 


JL "46"= 


ARE EEE MESSAGE SYSTEME, chercher message système et sortir 
GAEB: “ES PUSH HL 


CAEC C5 PUSH BC 

CAED F5 PUSH AF 

CAE E6/F AND 7FH ;annuler bit du numéro d'erreur 

CAFO 2186CB LD HL,OCB86H  ;hl pointe sur mess.système et erreur 
CAF3 47 LD B, A ;numéro d'erreur dans b 

CAFY O4 INC B :augmenter d'un, est immédiatement 
CAFS 1805 JR OCAFCH ;diminué à nouveau lors de DJN7 


ROOONNRRAREEXX jONOrEr Messages jusqu’au message voulu 


CAF7 /E LD A, (HL) ;un caractère du message dans accu 
CAF8 23 INC HL ;augmenter pointeur 

CAF9 3C INC À ;teste si fin d’un message 

CAFA  20FB JR NZ,OCAF/H  ;sf pas fin, continuer recherche 
CAFC  10F9 DUNZ OCAF7H ;b<>0 ignorer prochain message 


re ILE 


AHHOPOHEREE SoPtir message voulu 


CAFE 
CAFF 
CBOO 
CBO2 
CBO4 
CBOS 
CBO6 
CBO/ 
CBOA 
CBOB 
CBOC 
CBOD 


HO HE ME EE EE HE HE HE 


CBOF 
CB10 
CB11 
CB12 


HER HEC EE EE JE HE E EE 


CB13 
CB14 
CB17 
CB19 
CB1B 
CBTD 
CBTF 
CB21 
CB23 
CB25 
CB28 
CB2A 
CB2D 
CB2F 
CB30 
CB31 
CB33 
CB36 
CB38 


7E 
25 
PÈRE 
280B 
ES 
D5 
C5 
CD13CB 
C1 
D1 
ET 
18EF 


F1 
C1 
ET 
C9 


B/ 
F266CB 
FEFE 
2846 
FEFC 
281À 
FEFD 
20C8 
0608 
CD2FCB 
3E2E 
CD83CB 
0603 
13 

TA 
E6/F 
CD83CB 
10F7 
C9 


LD 
INC 
CP 
JR 
PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 
JR 


message 
POP 
POP 
POP 
RET 


A, CHL) 
HL 
OFFH 


Z,OCBOFH 


HL 
DE 
BC 
OCB1 3H 
BC 
DE 
HL 
OCAFEH 


un caractère du message dans accu 
;augmenter pointeur 

fin du message atteinte? 

;:Si oui, alors saut 


Continuer test Car, dans a et sortir 


retirer prochain caractère 


sorti, terminé 


AF 
BC 
HL 


continuer test caractère et sortir 


OR 
JP 
CP 
JR 
CP 
JR 
GP 
JR 
LD 
CALL 
LD 
CALL 
LD 
INC 
LD 
AND 
CALL 
DUNZ 
RET 


À 


P,OCB6GH 


OFEH 


Z,0CB61H 


OFCH 


Z,0CB3H 


OFDH 


NZ,OCAEBH 


B, 08H 
OCB2FH 
À, 2EH 
OCB83H 
B, 03H 
DE 

À, (DE) 
7FH 
OCB83H 
OCB2FH 


;stester caractère dans accu 
;sinférieur 80h, alors à la sortie 
;chaîne pour numéro de lecteur 
>convert, No lecteur en A/B et sortir 
;chaîfne pour variable numérique 
;déterminer variable et sortir 
>Chaîfne pour nom de fichier 

;Sortir chaîne extens, messag système 
3nom de fichier a 8 caractères 
localiser dans mémoire et sortir 
;Sortir 

extension à trois octets de I1ong 

;de pointe sur position en mémoire 
caractère dans accu 

annuler Dit 7 

SOC CIT 

>nombre - 1, prochain caractère 


- [I 48 - 


26626 6 26 6 26 EE 6 EE 6 


CB39 EB EX DE, HL :de pointe sur nom de fichier 


CB3A 1620 LD D, 20H ;" *, caractère espace 
CB3C O19CFF LD BC, OFF 9CH 

CB3F CDADCB CALL OCB4DH 

CB42 O1F6FF LD BC, OFFF6H 

CBS CDADCB CALL OCB4DH 

CB48 7D LD A, L 

CB49 C630 ADD À, 30H : décalage pour chiffre ASCII 
CBUB 1836 JR OCB83H ssortir 

HN 6 6 M 6 6 6 6 6 6 

CBUD 3EFF LD ÀA,OFFH 

CBUF ES PUSH HL 

CB5O 3C INC À 

CB51 09 ADD HL, BC 

CB52 3004 JR NC, OCB58H 

CB54 E3 EX (SP},HL 

CB55 EI POP HL 

CB56 18F7 JR OCBUFH 

CB58 ET POP HL 

CB59 B7 OR À ;zéro dans accu? 

CB5A 2802 JR Z, OCBSEH :alors sortir espace 

CB5SC 1630 LD D, 30H ;: décalage pour chiffre ASCII 
CB5E 82 ADD À, D 

CB5F 1822 JR OCB83H 3sortir 

LLLLELELELLLELSES: 

CB61 79 LD A, C ;numéro de lecteur O ou 1 
CB62 C641 ADD A,41H :ajouter ‘A’ 

CB64 181D JR OCB83H >sortir ‘A’ ou ‘B' 


ROOOOONRREEÉEX SOrtir caractère dans la fenêtre dans position curseur 


CB66 F5 PUSH AF ; Sauvegarde provisoire caractère 
CB67 FE20 CP 20H ;:caractère espace? 

CB69 2017 JR NZ,0CB82H alors sortir directement 

CBOB: ES PUSH HL 

CB6C DS PUSH DE 

CB6D CD69BB CALL OBB6 9H 3 TXT GET WINDOW 

CB/0 CD/8BB CALL OBB7 8H 3TXT GET CURSOR 


- [1 49 - 


CB73 7A LD 
CB74  D604 SUB 
CB76 3F CCF 
CB77 3001 JR 
CB79 BC CP 
CB7A Di POP 
CB7B E POP 
CB7C 3004 JR 
CRE F1 POP 
CB7F C3E9CA JP 
6 6 6 HE 6 DE 6 EE EE 

CB82 F1 POP 
CB83 C35ABB JP 


A, D 
OUR 


NC, OCB/AH 


H 
DE 
HL 


NC, OCB82H 


AF 
OCAESH 


AF 
OBBSAH 


RREEEREEX mosSAJE Système 0 


CB86 OD OA FF 


CB89 20 20 20 FF 


CB8D FC 4B FF 


CB90O 97 82 20 66 72 65 
CB98 FF 


CB99 80 42 61 64 20 63 
CBAT 6D 61 6E 64 80 FF 


CBA7 9B 61 6C 72 65 61 
CBAF 20 65 78 69 73 74 
CBB7 FF 


TARN ESAAENAANS; TES Sade 


CBB8 9B 6E 6F 74 20 66 
CBCO 6E 64 80 FF 


système 


système 


système 
65 97 


système 
6F 6D 


système 
64 79 
73 80 


Système 
6F 75 


— 


:d contient colonne droite fénêtre 


;h contient colonne curseur 


sSortir "CR/LF' 


:caractère à nouveau dans accu 


3 TXT OUTPUT 


messages système 


CR/LF 


sortir trois espaces 


‘variable numérique’K 


"CR/LF''CR/LF' ‘variable num. K' 


free 


CR/LF'Bad command'CR/LF' 


“CR/LF Filename’ already exists 


CR/LF Filename’ not found 


60: 


HE EH Et EE te message 


CBCH 95 64 69 72 65 63 
CBCC 72 79 20 9A FF 


et EE ME EE EE EE message 


CBD1 98 9A FF 


HE Je 6 HE message 


CBD4 98 63 68 61 6E 67 
CBDC 2C 20 63 6C 6F 73 
CBE4 67 20 FD 80 FF 


tt EE 6 HE HE EE tt message 


CBE9 9B 69 73 20 9D 20 
CBFT 6C 79 80 FF 


CBFS: FD: FF 


LÉELSLSLSLLSLSLSSS, message 


CBP7. 95.75 73:65 72 FC 


HE EE HE HE Et HE té 6 message 


CRFF: 2E 2€ 22€ 43 FF 


He EE EE 6 te message 


CCOS 96 43 50 2F 4D 80 


ELLES SLRRLSSSE LE) message 


CCOC 96 62 6F 6F 74 20 
CC14 63 74 6F 72 80 FF 


tt tt Et ét té message 


CCTA 95 9D 99 FF 


6 tt Et HE Hé Et 6 message 


CCE 95-9C 99 FF 


NRPAENSEIRENFEN MACSAOË 


CC22 98 69 73 20 L 20 
CC2A 6F 7/4 65 63 74 65 
CC32 FF 


système 
74 6F 


système 


système 
65 64 
69 6E 


système 
6F 6E 


système 


système 
80 FF 

système 
système 


FF 


système 
75:08 
système 


système 


système 
70 72 
64 80 


— 


—) 


— 


"CR/LF Drive A/B' directory ‘full’ 


*CR/LF Drive A/B Disc’ ‘full CR/LF' 


“CR/LF Drive A/B Disc’ changed, 
closing ‘Filename’ ‘’CR/LF' 


‘CR/LF Filename’ is ‘read’ only 


"Filename 


‘CR/LF Drive A/B' user 


‘variable numérique’ 


so € 


‘CR/LF failed to load’ CP/M 'CR/LF' 


CR/LF failed to load’ boot sector 
*CR/LF' 


"CR/LF Drive A/B' 
CR/LF' 


‘read’ ‘ fail 


"CR/LF Drive A/B' ‘write’ ‘ fail 


CR/LF' 


CR/LF Drive A/B disc is ‘write’ 
protected ’CR/LF' 


nt te 


EEE MESSAUE 


CC33 98 6D 69 73 73 69 
CCSE: 80 :FF"CR/LF" 


HE HN HE 6 JE message 


CC3D 80 52 65 74 72 79 
CONS 40:67 <6E::6K 72765 
CC4D 72 20 43 61 6E 63 
CC5S. SF'.20'FF 


CC58 80 44 72 69 76 65 
CCEO 3A 20 FF 


LÉLSSELSELSLSLSSSS: message 


CCE3 80 46 61 69 6C 65 
CC6EB 74 6F 20 6C 6F 61 
CC73 FF 


HOMO CH DE EE EH message 


CC/4 80 80 FF 


CC/7 95 64 69 73 63 20 


CC/E 20 66 61 6C 80 FF 


CC85 66 75 6C 6C 80 FF 


LÉRRLLLLLSSLSLSSS: message 


CC8B 80 FD 20 FF 


PEER MESSAUE 


CC8F 77 72 69 74 65 FF 


HCHOHCHOH CH CH OH EE HE EH message 


CC95. 72:65 61 64 FF 


CCIA FF 
CC9B FF 


RST 
RST 


système 
GE 67 


système 
2C 20 
20 6F 
65 6C 


système 
20 FE 


système 
64 20 
64 20 


système 


système 


FF 


système 


système 


système 


système 


système 


38H 
38H 


— 


4 


— 


5 


— 


6 


— 


/ 


19 


CR/LE Drive A/B disc ‘missing 


GRILLE" 


"CR/LF" 


"CR/LF' 


!CR/LF' 


"CR/LF' 


Retry, 


Drive 


Ignore or Cancel? 


"A/B": 


Failed to load 


"CR/LF" 


"CR/LF Drive A/B' disc 


fail ’CR/LF' 


full *CR/LF'’ 


"CR/LF' ‘Filename’ 


write 


read 


= NS2 


CC9C 
CCID 
CCE 
CC9F 


LÉRSSÉÉRLRSS SERRES S: 


CCAO 
CCAI 
CCAL 
CCA7 
CCA8 
CCAB 
CCAE 
CCB2 
CCB5 
CCB8 
CCBB 
CCBE 
CCCO 
CCCI 
CCC3 
CCC4 
CCCE 
CCC? 
CCCA 
CCCB 
CCCD 
CCDO 


LÉRÉLÉLE LES LSLS EE) 


CCD 
CCD4 


LÉRLSELLSLLLLLSS. 


CCDS 
CCD8 
CCDA 
CCDD 
CCDE 
CCET 
CCE2 


FF 
FF 
FF 
FF 


AF 
FD/7700 
FD7701 
3D 
FD/708 
FD/72C 
FD227DBE 
21/7BC 
116401 
CD98CA 
012700 
EDBO 
EB 
3630 
25 
36CD 
23 
CD12B9 
77 
SEC9 
327FBE 
AF 


CDEUCC 
DO 


2177BC 
0607 
CDESCC 
DO 
219BBC 
O4 
1805 


RST 
RST 
RST 
RST 


38H 
38H 
38H 
38H 


détourner tous les 


XOR 
LD 
LD 
DEC 
LD 
LD 
LD 
LD 
LD 
CALL 
LD 
LDIR 
EX 
LD 
INC 
LD 
INC 
CALL 
LD 
LD 
LD 
XOR 


DISC 
CALL 
RET 


DISC 
LD 
LD 
CALL 
RET 
LD 
INC 
JR 


À 
(IY+00H), À 
(IY+01H),A 
À 
(1Y+08H), À 
(IY+2CH), A 
(OBE/DH),IY 
HL,0BC7//H 
DE,0164H 
OCA98H 

BC, 0027H 


DE, HL 
CHL), 30H 
HL 
CHL) , OCDH 
HL 

0B912H 
CHL), A 

A, OC9H 
(OBE/FH),A 
À 


OCCEUH 
NC 


HL,0BC77H 
B, O/H 
OCCESH 

NC 

HL, OBC9BH 
B 

OCCESH 


vecteurs cassette pour le disque 


:Drive et User sur défaut AO 


:ACCU = ffh 
;: flag OPENIN actif sur inactif ffh 
; flag OPENOUT actif sur inactif ffh< 


;vecteurs cassette 

; Sauvegarder 

:de-de+iy, mempool + 164h 
:13*3 octets = 13 vecteurs 


Lu 


;OCD3OH est l'adresse d'entrée pour 
;:toutes Ies entrées CAS détournées 


3KL ASC CURR SELECTION, numéro de la 
:Rom disque comme 3ème octet pour RST 
:Code pour Return 


. 
‘ 


3DIsc Out 
:erreur apparue alors RET 


;Cass In Open 

;: détourner Cass In Open et les 
:Six entrées suivantes 
:Catalog 


: détourner Catalog 


All SS-r 


BE AE EX DISC OUT 


CCE4 218CBC LD HL,0BC8CH  ;Cass Out Open et Iles quatre entrées 
CCE7 0605 LD B, OSH ;Suivantes 

HE EE ED EE 

CCES: -B7 OR A est-ce que des paramètres suivent? 
CCEA  203F JR NZ,0CD2BH  ;Ssi oui alors saut 

CCEC 118B01 LD DE,018BH ;Sinon détourner vecteurs voulus 
CCEF  CD98CA CALL OCA98H ;:de=de+iy, discmem + 18bh 

CCF2  36DF LD (HL),0DFH ;Restart 3 

CEPFE 23 INC KL 

COS TS LD (HL),E ;:les entrées pointent toutes 

CLP: E25 INC HL ;vers A88Bh 

CCE 72 LD (HL),D 

CCF8 23 INC HL 

CCF9 10F7 DUJN7Z OCCF2H 

CCF - 57 SCF 

CCFC C9 RET 


HHRHHEHEEEEEEEE TAPE, restaurer vecteurs cassette 
CCFD CD18CD CALL OCD18H srestaurer Tape Out 
CDO0 DO RET NC ;serreur apparue, alors RET 


RL SRR RSR EE; TAPE IN 


CDOT 216401 LD HL,0164H 

CDO4 1177BC LD DE, OBC//H 

CDO7 011500 LD BC,0015H :7 vecteurs tous Tape In 
CDOA CD21CD CALL OCD21H 

CDOD DO RET NC erreur apparue 

CDOE 218801 LD HL,0188H 

CD11 119BBC LD DE, OBC9BH 

CD14 OE03 LD C, 03H ;un vecteur Cass Catalog 
CD16 1809 JR OCD21H 


D EX T APE OUT 


CD18 21/901 LD HL,0179H 

CD1B 118CBC LD DE, OBC8CH 

CDIE 010F00 LD BC, OOOFH ;:5 vecteurs tous Tape Out 

CD21 B/ OR Â est-ce que des paramètres suivent? 
CD22 2007 . JR NZ,0CD2BH  :;alors sortir erreur 

CD24  CDS9FCA CALL OCA9FH shI=hl+iy 

CD27  EDBO LDIR 


AUS 


CD29 37 
CD2A C9 


HO ECHEC EE HE JE 


CD2B 3EO4 
CD2D C3EBCA 


HE HE EH ME CHE 6 JE HE 


FD2A7DBE 


CD30 
CD34 
CD35 
CD36 
CD37 
CD38 
CD39 
CD3A 
CD3B 
CD3C 
CD3D 
CD3E 
GDSP 
CD 
CD44 
CD4S 
CD46 
CD4/ 
CD48 
CD49 


HR JE HE EE HE ME HE Hé 6 


CD4C 
CDUF 
CD52 
CDS5 
CD58 
CD5B 
CDSE 


CD61 
CD64 
CD6/ 


F3 

08 

D9 

79 

D 

C1 

F1 

E3 

C5 

D5 

UF 
067F 
11D210 
19 

E5 

D9 

08 

FB 
C37FBE 


C3AFCE 
C3B6D1 
C3BCDI 
C364CF 
CSFSCE 
C369D0 
C365D0 


CS57C0r 
C3D8D1 
C3C2D1 


SCF :fixer Carry comme marque que OK 
RET 


LD À, OuH 
JP OCAEBH 


>message système 4, *’BAD#COMMAND' 


; chercher et sortir 


est appelé par toutes les entrées CAS au moyen de RST3 


LD IY, (OBE/DH) ;début de mémoire pour disque dans {y 
DI ;snécessaire pour utilisation du 

EX AF,AF' ;jeu de registres alternatif 

E XX 

LD A, C contenu de c est variable 

POP DE adresse de retour dans de 

POP BC ;POPer deux autres RETS 

POP HL 

EX CSP HE ;ce RET doit remonter 

PUSH BC >:bc et RET original à nouvau sur pile 
PUSH DE 

LD C,A srestaurer c et D 

LD B, /FH 

LD DE, 10D2H augmenter adresse RET de 10D2h 

ADD HL, DE set comme nouvelle adres.RET sur pile 
PUSH HL :RET pointe alors dans table suivante 
E XX répéter Jeu de registre original 

EX AF,AF' 

EI :les INTS sont à nouveau autorisées 
JP OBE7FH ;il y a là un RET! 


bloc de jump pour Ies entrées CAS/DISC détournées 


JP OCEAFH ; DISC IN OPEN 

JP OD1B6H ;DISC IN CLOSE 

JP ODTBCH ;DISC IN ABANDON 

JP OCF6E4H > DISC IN CHAR 

JP OCFFSH > DISC IN DIRECT 

JP ODO6SH ; DISC RETURN 

JP ODO65H 3DISC TEST EOF 

JP OCF37H 3DISC OUT OPEN 

JP ODTD8h ; DISC OUT CLOSE 
3DISC OÙT ABANDON 


JP OD1C2H 


PS5 


CD6A C38FD0 
CD6D C3D8DO 


CD/70 C313D5 


6H EH EN EH 


CD73: Cn77CD 
CD/6 C9 


46 6 6 EH DM D EE 


CD/77 ES 
CD/78 210600 
CD/B 39 
CD/C FD7506 
CD/F FD/407 
CD82 ET 
CD83 C9 


JP ODO8FH ;DISC OUT CHAR 
JP ODOD8H ;DISC OUT DIRECT 
JP OD5135H >DISC CATALOG 


augmenter pointeur de pile et dans discmem+b6 
CALL OCD/7H nécessaire pour correction de pile 
RET 


pointeur de pile dans discmem+6 


PUSH HL 

LD HL, OOO6H :deux CALLS et le PUSH HL = 6 octets 
ADD HL, SP :pile corrigée comme il faut dans hl 
LD (1Y+06H),L et dans discmemtb 

LD (IY+07H),H ;et ranger discmem+/ 

POP HL 

RET 


ROEERERE cauvegarder pile, Si OPENIN pas actif, alors interruption 


CD84 CD/7CD 
CD8/7 F5 
CD88 FD/E08 
CD8B 1807 


CALL OCD//H ;Savegarder pointeur de pile 
PUSH AF 

LD A, (1Y+08H) :;flag OPENIN actif 

JR OCD9S4H 


M OONUEX cauvegarder pile, si OPENOUT pas actif, alors interruption 


CD8D CD/7/CD 
CD90. F5 
CD91 FD7/EZ2C 
CD94 FEFF 
CD96 2812 
CD98 CDI6CE 
CD9B F1 
CD9C. C9 


He EE JE ECM HE HE EX 6 


CD9D FD/E08 
CDAO 1803 


6 MH EH EH EE 


CDA2 FD/E2C 
CDAS CD/77CD 
CDA8 3C 


CALL OCD//H : Sauvegarder pointeur de pile 

PUSH AF 

LD A, (1Y+2CH) :flag OPENOUT actif 

CP OFFH ;sfichier pas ouvert? 

JR Z, OCDAAH ;=> interruption 

CALL 0CE16H ;:Si nécessaire Login, détermin format 
POP AF 

RET 


interruption si OPENIN actif 
LD A,(1Y+08H) :;:flag OPENIN actif 
JR OCDASH 


interruption si OPENOUT actif 


LD A,(1Y+2CH) :flag OPENOUT actif 
CALL OCD/77H :Sauvegarder pointeur de pile 
INC Â :flag est ffh, si pas actif 


AUS 


CDAG CB RET 2 ;=> n'était pas actif, tout est OK 


CDAA 3EOE LD À, OEH >numéro d'erreur dans accu 
CDAC B7 OR Â annuler flag Carry, marque erreur 
CDAD 180A JR OCDBSH >restaurer pile, interrompre instruc. 


RRREEERERXXE SOrtir Bad command, interrompre instruction 


CDAF 3EO4 LD À, OUH Message système 4, ‘Bad command’ 
CDB1 CDCADB CALL ODBCAH j 

CDB4 C60C ADD À, OCH numéro d'erreur dans accu 

CDB6 F680 OR 80H >pas de message d'erreur jusqu'ici 
CDB8 BF CP À >annuler Carry, marque erreur 


PEEEREE jnterrompre instruction 


CDB9 FD6E06 LD L, (IY+06H) ;restaurer pointeur de pile 
CDBC FD6607 LD H, (IY+07H) 

CDBF F9 LD SP, HL 

CDCO C9 RET ;et retour 


FENPEERNREREXX teste Si accu = 2, si non, interruption et ‘Bad Command’ 


CDC1 3D DEC Â 

POOOIRRHEE Toste Si aACCU = 1, Si non, interruption et ’Bad Command’ 
CDC2 3D DEC À 

CDC3 C8 RET pl ;=> ACCU est zéro 

CDC4 C3AFCD JP OCDAFH ;Sortir Bad command, interrompre 


>instruction 
RO00OEEREEEEEE mène longueur chaîne dans b, adresse chaîne dans hl 


CDC7 CDCFCD CALL OCDCFH amener un paramètre dans hl 

CDCA 46 LD B, CHL) >: longueur de la chaîne 

CDCB 23 INC HL ; (hl) => adresse de la chaîne 

CDCC C3F9DB JP ODBF SH 3LD AL; CRU) 

OORREEREXE mener Un paramètre d'extension d’instruction dans h1 
CDCF DD6E00 LD L,CIX+00H) ;octets faible et 

CDD2 DD6601 LD H,CIX+01H) ;fort du param. à transmettre dans hl 
CDDS DD23 INC IX ;ix Sur paramètre suivant éventuel 
CDD/7  DD23 INC IX 

CDD9 C9 RET 

LÉELLLLLLLLZZZZZ: lÂ: 

CDDA AF XOR À ;:ACCU sur O0, valeur pour lecteur À 
CDDB 1802 JR OCDDFH 


nt 


LÉÉLRLLLLLLLLE ES: 1B: 


CDDD 
CDDF 
CDE2 


LÉRLLLLLLLLLLLLL,; 


CDE4 
CDE7 
CDEA 
CDED 
CDEE 
CDF1 
CDF2 
CDFS 
CDF7 
CDFA 
CDFD 


LELSLLLLLLLLLZZL EL: 


CDFE 
CEO1 
CEO4 
CEO7 
CEOA 
CEOD 
CET0 
CE13 


LÉALLELLLLLLLLLLZ) 


CET4 
LES 
CET6 
CE17 
CE18 
CE19 
CETA 
CE1B 
CETD 
CE20 
CE21 
7e 
CE26 


3E01 
CD/3CD 
1813 


CD73CD 
CDC2CD 
CDC/CD 
05 
C2AFCD 
7E 
CDAGCA 
D641 
CD16CE 
FD/7700 
C9 


CD/73CD 
CDC2CD 
CDCFCD 
111000 
CDF3DB 
D2AFCD 
FD7501 
C9 


OA 

03 

ES 

D5 

C5 

F5 

LF 
1EFF 
FD/E08 
B9 
2808 
FD/E2C 
B9 


LD 
CALL 
JR 


IDRIVE 
CALL 
CALL 
CALL 
DEC 
JP 
LD 
CALL 
SUB 
CALL 
LD 
RET 


[USER 
CALL 
CALL 
CALL 
LD 
CALL 
JP 

LD 
RET 


LD 
INC 
PUSH 
PUSH 
PUSH 
PUSH 


LD 
LD 
CP 
JR 
LD 
CP 


A,01H ;Accu sur 1, valeur pour lecteur B 
OCD/73H > Sauvegarder pointeur de pile 

OCDF7H ;>transmettre valeur au DOS 

OCD/73H ; Sauvegarder pile 

OCDC2H ;1 param.à suivre sinon ‘Bad command‘ 
OCDC7H >retirer paramètre 

B 

NZ,OCDAFH  ;sortir Bad command,interrompre instr 
À, (HL) marque lecteur voulue (A/B) dns accu 
OCAAGH ;convertir en majuscules 

41H ; donne 0 ou 1 

OCE16H >Login 

(IY+00H),A ;transmettre No lecteur au DOS 
OCD73H > Sauvegarder pile 

OCDC2H ;1 param.à suivre sinon ‘Bad command’ 
OCDCFH ;:amener paramètre dans h]l 

DE, 0010H ;numéro User maximal + 1 

ODBF 3H ;de = h1?, numéro User légal? 
NC,OCDAFH ;trop grand, ‘Bad command’, interrup. 
(1Y+01H),L ;transmettre numéro User au DOS 

A, (BC) ;premier caractère extens, nom 

BC ;:de fichier, numéro lecteur 

HL 

DE 

BC 

AF 

C,A ;No lecteur lecteur appelé 

E,OFFH ;ffh = OPEN actif sur lecteur appelé 
À, (IY+08H) ;flag OPENIN actif 

C ;Sur ce lecteur? 

Z,OCE2BH ;=> OPENIN actif 


À, (IY+2CH) 


C 


; flag OPENOUT actif 
>; Sur ce lecteur? 


[158 = 


CE27 2802 JR Z,O0CE2BH ;=> OPENOUT actif 


CE29 1E00 LD E, 00H 300h = pas OPEN actif sur lecteur 
CE2B DS PUSH DE ;appelé 
CEZC: ‘C5 PUSH BC 
CE2D CDFOC4 CALL OC4FOH ;teste No lecteur,déterm, format disc 
CES0 C1 POP BC 
CE31 Di POP DE 
CE32 7C LD A,H ;steste hI sur 0000 
CE33 BS5 OR L 3Si hl = 0000,älors lecteur pas READY 
CE34 CAAFCD JP Z, OCDAFH ;3Sortir Bad command, interrompre instr 
CE37  -FD7505 LD (IY+03H),L ;(hl) => Disc Parameter Header 
; (a910/a920) 
CE3A FD7404 LD (IY+O4H),H ;dans iy+3/iy+4 
CE3D FD7305 LD (IY+05H),E ;flag, si OPEN actif sur lectr appelé 
CE4O FD7102 LD (IY+02H),C ;numéro lecteur (HS/US) 
CE43 F1 POP AF 
CEu4 C1 POP BC 
CEUS D POP DE 
CEU6 ET POP HL 
CEU7 C9 RET 


POOPONEREEEXEX copie nom fichier étendu dans bloc header OPENIN 


CE48 215000 LD HL, O050OH ; décalage par rapp.bloc header OPENIN 
CEUBR CDSACE CALL OCESAH 

CEUE ES PUSH HL 

CEUF 114200 LD DE , 0042H 

CE52 19 ADD HL, DE 

CE53 3680 LD (HL),80H 


“1Et-20r 


CES5 
CE56 


EH HE HE HE He 


CES7 
CESA 
CESB 
CESC 
CESF 
CE61 
CE62 
CE63 
CE64 
CE6S 
CE6G 
CE6/ 
CE68 
CE69 
CEGA 
CE6B 
CEGC 
CE6F 
CE70 
CE7S 
CE74 
CE75 
CE76 
CE77 
CE/8 
CE/B 
CE/D 
CE/E 
CE 
CE80 
CE83 
CE84 
CE86 
CE8/ 
CE88 
CE89 
CE8A 
CE8B 


ET 
C9 


219A00 
CD 

D5 
CD9FCA 
3600 
2 

73 

23 

Le 

23 

73 

29 

2 

23 

ES 

C5 
014500 
EB 
CDAFCA 
C1 

60 

69 

D 

D5 
010C00 
EDBO 
ÉA 

D 

ES 
011200 
09 
3616 
23 

23 

23 

73 

25 

72 


POP 
RET 


HL 


copie nom de fichier étendu dans bloc header OPENOUT 


LD 
PUSH 
PUSH 
CALL 
LD 
INC 
LD 
INC 
LD 
[NC 
LD 
INC 
LD 
[NC 
PUSH 
PUSH 
LD 
EX 
CALL 
POP 
LD 
LD 
POP 
PUSH 
LD 
LDIR 
POP 
POP 
PUSH 
LD 
ADD 
LD 
INC 
[NC 
INC 
LD 
[NC 
LD 


HL, OOSAH 
BC 

DE 
OCA9FH 
CHL), 00H 
HL 
CHL),E 
HL 
CHL),D 
HE 
(HL),E 
HL 
CHL),D 
HL 

HL 

BC 

BC, 0O045H 
DE,HL 
OCAAFH 
BC 

H, B 

L,C 

DE 

DE 

BC, OOOCH 


HL 

DE 

HL 

BC, 0012H 
HL, BC 
CHL),16H 
HE 

HL 

HL 
CHL),E 
HL 
CHL),D 


:décal, par rapp, bloc header OPENOUI 
shi=hl+ijiy, hl=> bloc header 


: (de) => Adresse du buffer user 
:dans pointeur début buffer user 


;Vecteur dans buffer user 
>fixer sur début 


;(hl)=> début nom fichier dans header 


; (bc) => EFN à partir numéro user 
>nombre d'octets à annuler 

;vide (de) à (de+bc), reste du header 
3 (bc) => EFN à partir numéro user 
;transférer dans hl 


;:adr, nom fichier dans header dans de 
; longueur nom fichier avec Drive/User 
;stranférer dans bloc header 


:adr, nom fichier dans header dans hl 
:adresse buffer user dans de 


:marque type fichier ‘unprot. ASCII’ 


Adresse buffer user 


Ir 


CE8C 
CES8D 
CES8F 
CE9O 
CES 


6 6 EH EE D 6 6 EE 


CÉ92 
CE93 
CE96 
CE97 
CE99 


CE9A 
CE9B 
CESC 


CE9D 
CEE 
CE9F 
CEA 
CEA2 
CEA3 


HE 6 6 DE 6 DE EE EE 6 EX 


CEAU 
CEAS 
CEAS 
CEA9 
CEAA 
CEAB 
CEAC 


LÉERSRLLELELLELLLSS: 


CEAF 
CEB2 
CEB3 
CEB6 


CEB9 
CEBC 
CEBD 


23 
36FF 
ET 
Ci 
C9 


ES 
210000 
54 
0643 
E3 


JE 
23 
E3 


5F 
19 
10F8 
EB 
ET 
C9 


ES 
CD92CE 
75 
23 
2 
ET 
C3F9D3 


CD9DCD 
D5 

CD6FDA 
CDT4CE 


210900 
09 
7E 


[NC 
LD 

POP 
POP 
RET 


HL 


CHL), OFFH 


HL 
BC 


valeur contrôle deux octets sur header (43h octets) 


PUSH 
LD 
LD 
LD 
EX 


LD 
[NC 
EX 


LD 
ADD 
DUN7 
EX 
POP 
RET 


PUSH 
CALL 
LD 
ENC 
LD 
POP 
JP 


DISC 
CALL 
PUSH 
CALL 
CALL 


LD 
ADD 
LD 


HL 


HL, OOOOH 


D,H 
B, 43H 


(SP), HL 


À, CHE) 
HL 
(SP), HL 


E, À 
HL, DE 
OCE99H 
DE, HL 
HL 


HL 
OCE92H 
CHL),E 
HL 
CHL),D 
HL 
OD3F 9H 


OPEN 
OCD9DH 
DE 
ODAGFH 
OCETUH 


HL, 000SH 


HL, BC 
À, CHL) 


shl => début header 

sfixer valeur contrôle sur 0 
>soctet fort de de mis à O 

>nombre d'octets 

shl = pointeur dans header, valeur 
contrôle sur pile 

un caractère dans accu 

;prochain caractère dans le header 

shl = valeur de contrôle, pointeur 
dans header sur pile 

>accu dans e, de = caract, en 16 bit. 
sajouter à valeur de contrôle 
encore un caractère? => 

;>valeur de contrôle dans de 

shl => début header 


;sranger pointeur de pile 

>adresse buffer 2K 

;contrôler validité nom de fichier 
sheader param. disc dans hl, Login 
S'il y a lieu 


> (bc)=> nom de fichier étendu 
3(hl)=> premier caract. extension 


= EST = 


CEBE 
CEBF 
CECI 
CECE 
CEC7 


LÉLÉESSLSESLSLLLLLS: 


CEC9 
CECC 
CECF 
CEDI 
CED& 
CED7 
CED9 
CEDC 
CEDF 
CEEO 
CEES 
CEEZ 


LÉÉÉESESSLSLSELLLLS,: 


CEE7 
CEE8 
CEEB 
CEEL 
CÉEF 
CEF2 
CEFS 
CEF& 
CEF5 
CEF8 
CEFB 
CEFE 
CFO1 
CFO3 
CFO4 
CFO5 


CFO08 


CFOB 


3C 
2808 
CD51D6 
D20CD5 
181E 


CDA8D2 
CD51D6 
3816 
CDB3D2 
CD51D6 
380€ 
CDB/D2 
CD51D6 
F5 
DuA8D2 
F1 
D20CD5 


D1 
CD48CE 
ES 
110800 
CD9Y8CA 
OB 

DA 

12 
CD9CD7 
21E400 
CDSFCA 
CD92D3 
301F 
ES 

D5 
CD92CE 


CDF9SDB 


CDF3DB 


[NC 
JR 
CALL 
JP 
JR 


À 
Z,OCECSH 
OD651H 
NC,ODSOCH 
OCEE7H 


spremier caract. extension =ffh? 
>=> entré nom fichier sans extension 
>chercher nom de fichier dans Dir 
:=> fichier pas trouvé, interruption 


entré nom de fichier sans extension 


CALL 
CALL 
JR 
CALL 
CALL 
JR 
CALL 
CALL 
PUSH 
CALL 
POP 
JP 


OD2A8H 
OD651H 

C, OCEE/H 
OD2B3H 
OD651h 

C, OCEE/H 
OD2B/7H 
OD6STH 

AF 

NC, OD2A8H 
AF 

NC, ODSOCH 


-entrer 3 espaces extension 

»:nom de fichier sur disque sans ext.? 
3=> trouvé 

>entrer extension ‘BAS’ 

;Sauvegardé comme fichier Basic? 

=> trouvé 

>entrer extension ‘BIN' 

> Sauvegardé comme fichier binaire? 


>sfichier pas trouvé, ext. 3 espaces 


;=> interruption, ‘File not found’ 


trouvé nom de fichier dans le Directory 


POP 
CALL 
PUSH 
LD 
CALL 
DEC 
LD 
LD 
CALL 
LD 
CALL 
CALL 
JR 
PUSH 
PUSH 
CALL 


CALL 


CALL 


DE 
OCE4S8H 
HL 

DE, 0008h 
OCA98H 
BC 

A, (BC) 
(DE),A 
OD7 JCH 
HL, O0E4H 
OCA9FH 
0D392H 
NC, OCF22H 
HL 

DE 
OCE92H 


ODBF SH 


ODBF 3H 


:adresse buffer 2K 
;copier nom fichier dns header OPENIN 
;>adresse début header 


;:de=de+iy, adresse OPENIN FCB 


>numéro de lecteur 

;: dans OPENIN FCB 

>nb caract. dans fichier d'entrée à 0 

shl=hl+iy, adresse buffer d'enregist. 

enregistrement dans buffer d'enreg. 

;=> erreur apparue 

> (hl1)=> début buffer d'enregistrement 

> (de)=> nom de fichier dns OPENIN FCB 

;:valeur contrôle 43h octets de 
l'enregistrement dans de 

id hl,(hl), valeur contr. sauvée 
éventuelle 

shl = de? Si oui, enregistrement 
chargé est header 


= 62 


CFOE D1 POP DE 


CFOF E1 POP HL 

CF10 200D JR NZ,OCF1FH  ;=> valeur contrôle <>, fichier ASCII 
CF12 115500 LD DE , OO5SH 

CF15 CD98CA CALL OCA98H ;de=de+iy, bloc header OPENIN +5 
CF18 014500 LD BC, 0045H ;nombre d’octets header 

CF1B  EDBO LDIR ;transférer dans bloc header OPENIN 
CF1D 1803 JR OCF22H 


RERERREEERS fichier d'entrée pas fichier ASCII 


CF1F  CD9CD/ CALL 0D/9CH >nb caract, dans fichier entrée sur 0 
CF22 El POP HL 

CR23: 4E5 PUSH HL 

CF24 111500 LD DE, 0015H 

CF27 19 ADD HL, DE 

CF28 65E LD EL adresse, d’où fichier a été écrit 
CF29 23 INC HL ;:a l'origine, dans de 

CF2A 56 LD D, CAL) 

CF2B 23 INC HL 

CÉ2C. 25 INC HL 

CF2D 4E LD C, CHL) ;:longueur du fichier dans bc 

CF2E 23 INC HL 

CF2F 46 LD B, (HL) 

CF30 EI POP HL 

CEST. 37 SCE ;marque OPENIN OK 

CF32 9F SBC A,A ;au Système d'expl CPC pas d'erreur 
CF33 FD/E67 LD A,(IY+6/H) ;type de fichier de fichier ouvert 
CF36 C9 RET 


RDA DEEE [SC OUT OPEN 


CF37 CDA2CD CALL OCDA2H >ranger pointeur de pile 

CF5A: DS PUSH DE -:adresse de buffer OPENOUT de 2K 

CF3B CD6GADA CALL ODA6AH ;steste si nom fichier valide, 
organise EFN 

CESE "CDHCE CALL OCETUH sheader param, disc dans hl, Login 
S'il y a lieu 

CF4T D1 POP DE ;buffer OPENOUT 2K 

CF42 CDS/CE CALL OCES7H ;copier EFN dans bloc header OPENOUT 

CF4S ES PUSH HL ;(h1) => header OPENOUT +5, No user 

CF46  CDABD2 CALL OD2ABH >entrer extension ‘$$$’ dans OHB 

CF49 CD76D6 CALL 0D676H ;sfichier déjà sur la disquette? 

CFUC 60 LD H,B ;:adresse header OPENOUT dans hl 


Ur 


CFUD 
CFUE 
CFAF 
CF52 
CFS5 
CF58 
CFSA 


CFSD 


CF6O 
CF61 
CF62 
CF63 


OH EE EH 


CF64 
CF65 
CF66 
CF67 
CFGA 
CF6B 
CF6C 
CFED 
CFGE 
CF70 
CR71 
CF72 
CF73 


CHOCO HE HE 


CF74 
CRZZ 
CF79 
CF7A 
CF7D 
CF/E 
CF7F 
CF81 
CF8u 
CF86 
CF89 


69 

2B 
112C00 
CD98CA 
010D00 
EDBO 
011700 


CDAFCA 


ET 
Er, 
9F 
69 


ED 
D5 
CS 
CD/4CF 
C] 
D1 
ET 
DO 
FETA 
L 74 
CO 
B/ 
C9 


CD84CD 
FDES 
D1 
215000 
19 

É 
FE0O2 
CAAACD 
3601 
219500 
19 


LD 
DEC 
LD 
CALL 
LD 
LDIR 
LD 


CALL 


POP 
SCF 
SBC 
RET 


DISC 
PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 
RE) 
CP 
SCF 
RET 
OR 
RET 


retire un caractère 


CALL 
PUSH 
POP 
LD 
ADD 
LD 
LP 
JP 
LD 
LD 
ADD 


5; 

HL 

DE, OO2CH 
OCA98H 
BC, OOODH 


BC, 0017H 


OCAAFH 


HL 


À, À 


CHAR 
HL 

DE 

BC 
OCF74H 
BC 

DE 

HL 

NC 

TAH 


NZ 
Â 


OCD84H 
1Y 

DE 

HL, 0050H 
HL, DE 

A, (HL) 
02H 

Z, OCDAAH 
CHL),01TH 
HL, 009SH 
HL, DE 


;:(h1) => numéro lecteur 


;de=de+iy, bloc fichier contr.OPENOUT 

> longueur nom fichier av. lect.8 user 
;:transférer dans FCB OPENOUT 

; longueur affect.blocs dans Dir(10h) 
+ pointeur (7) 

efface reste après nom de fichier 
dans FCB 

;:bloc header +5 

marque OPENOUT OK 

;au Système d'expl, CPC OPENOUT OK 


>; Sauver tous Iles registres 


sretirer caract., de buffer OPENIN 
restaurer registres 


marque erreur apparue 
; lu marque E0F? 

marque que tout est OK 
;3=> pas EOF 

>Sinon annuler Carry 
et retour 


de fichier OPENIN ouvert 

> Sauvegarder pile, tester flag OPENIN 
;:Disc-Mempool 

;:dans de 


> (hl)=>marque In Char(1)/In Direct(2) 
marque dans accu 

3Disc In Direct était actif? 

;salors erreur, interrupt.de l'instr. 
sentrer marque Disc In Char 

;stester, si caract., dans buffer 


- II 64 - 


CF8A 
CF8B 
CF8C 
CF8D 
CF8E 
CF8F 
CF91 
CF94 
CF95 
CF96 
CF97 
CF98 
CF99 
CF9C 
CFOD 
CFŒÆ 
CF9F 
CFAI 
CFA2 
CFA3 
CFAU 


CFAS: 


CFAG 
CFA7 
CFA8 
CFAB 
CFAC 
CFAE 
CFAF 
CFB1 
CFB2 
CFB4 
CFB5 
CFB7 
CFBA 
CFBB 
CFBC 
CFBD 
CFBE 
CFBF 
CFCO 
CECI 


JE 
23 
B6 
23 
B6 
2836 
216800 
19 
E 
25 
B6 
2B 
CCCBCF 
7E 
23 
B6 
2826 
46 
2B 
LE 
OB 
71 
23 
70 
219500 
19 
0603 
7E 
D601 
14 
3003 
29 
10F7 
215300 
12 
DE 
23 
56 
EB 
E7 
EB 
13 


LD 
INC 
OR 
[NC 
OR 
JR 
LD 
ADD 
LD 
INC 
OR 
DEC 
CALL 
LD 
INC 
OR 
JR 
LD 
DEC 
LD 
DEC 
LD 
[NC 
LD 
LD 
ADD 
LD 
LD 
SUB 
LD 
JR 
INC 
DUNZ 
LD 
ADD 
LD 
[NC 
LD 
EX 
RST 
EX 
[NC 


A, CHL) 
HL 

CHL) 

HE 

CHL) 

Z, OCFC/H 
HL, 0068H 
HL, DE 

A, CHL) 
HL 

CHL) 

HL 
Z,OCFCBH 
A, CHL) 
HL 

CHL) 
Z,OCFC7H 
B, CHL) 
HL 

C, CHL) 
BC 
CHL), C 
HL 
CHL),B 
HL, 0095H 
HL, DE 

B, 03H 

A, CHL) 
01H 
CHL), A 
NC, OCFB/H 
HL 
OCFAEH 
HL, 005 3H 
HL, DE 

E, CHL) 
HL 

D, CHL) 
DE, HL 
20H 

DE, HL 

DE 


; compteur de caractères de 
>remplissage de trois octets 


;=> pas de caractère dans buffer 


remplir buffer OPENIN de 2K 

;tester Si nombre de caractères lus 
set placés dans buffer OPENIN = 0 

=> erreur, pas de caract.dans Buffer 
>nombre octets Ius dans bc 


;un caractère est Iu, donc décompter 
:rangder nombre de caractères 
srestant dans le buffer 


spointeur dans buffer OPENIN dans de 


>LD A, CHL), retirer caract. de buffer 


>augmenter pointeur buffer OPENIN 


F6 


CFC2 
CFC3 
CFC4 
CFCS 
CFC6 


EH EH EE EE 


CFC7 
CFCS 
CFCA 


HR HE HH HE EE JE EE 


CFCB 
CFCC 
CFCD 
CFCE 
CFD 
CFD2 
CFDS 
CFD6 
CFD9 
CFDC 
CFDE 
CFDF 
CFEO 
CFE2 
CFE4 
CFE6 
CFE7 
CFE8 
CFE9 
CFEA 
CFEB 
CPÉE 
CFEF 
CFFO 
CFF1 
CrP2 
CFES 
CFF4 


2 
2B 
73 
37 
C9 


3E0F 
B/ 
C9 


ES 

D5 

ES 
215100 
19 
CDF9SDB 
ES 
011000 
CD49DO 
3E10 
1 

47 
0EO0 
CB38 
CB19 
Di 

ET 

71 

23 

70 
OTEAFF 
09 

13 

PA 

F2 

D1 

ET 

C9 


LD 
DEC 
LD 
SCF 
RET 


conclusion erreur 


LD 
OR 
RET 


PUSH 
PUSH 
PUSH 
LD 
ADD 
CALL 
PUSH 
LD 
CALL 
LD 
SUB 
LD 
LD 
SRL 
RR 
POP 
POP 
LD 
[NC 
LD 
LD 
ADD 
LD 
[NC 
LD 
POP 
POP 
RET 


(CHL),D 
AL 
(HL),E 


A,0FH 
Â 


HL 

DE 

HL 
HL,0051H 
HL, DE 
ODBF SH 
HL 

BC, 0010H 
ODO4SH 
A, 10H 

C 
B, A 

C, 00H 
B 

C 

DE 

HAL 
CHL),C 


HL 
CHL),B 


BC, OFFEAH 


HL, BC 
(HL),E 
HL 
CHL),D 
DE 
HL 


et ranger 


:marque, un caractère retiré 


; code erreur 
annuler Carry 


:ld hl,(hl), adresse buffer 

ranger sur ja pile 

:16 enregistrements 

; Charger dns buffer OPENIN si présent 


;: déterminer nombr enregistrements Ius 
:nombre dans D 


; détermine nombre octets Ius 
résultat dans bc 

;pointeur buffer OPENIN 

; (hl)=> nombre octets lus 

: ranger 


ranger pointeur buffer OPENIN 


“JE 66: = 


HE DH HE EH EE DISC IN DIRECT 


CFES 
CFF8 
CFF9 
CFFC 
CFFF 
DO00 
DO02 
DO05 
DO07 
DOUA 
DOOB 
DOOC 
DOOD 
DOOE 
DOOF 
DO10 
D011 
D012 
DO14 
DOT7 
D018 
DO19 
DOTA 
DO1D 
DOTE 
DO20 
D021 
D023 
DO25 
D026 
DO27 
DO2A 
DO2D 
DO2E 
DO31 
DO34 
DO35 
DO36 
DO37 
D039 
DO3A 


CD84CD 
ES 
215000 
CD9FCA 
7E 
FEO 
CAAACD 
3602 
114500 
19 

SE 

23 

56 

F1 

D5 

E5 

EB 

3€ 07 
CDEBDBE 
44 

4D 

E1 
CD49DO 
Di 
301E 
7B 
E67F 
2819 
F5 

ES 
21E400 
CD9FCA 
ES 
010100 
CD49DO 
E1 

Di 

C1 
3005 


48 


0600 


CALL 
PUSH 
LD 
CALL 
LD 
CP 
JP 
LD 
LD 
ADD 
LD 
INC 
LD 
POP 
PUSH 
PUSH 
EX 
LD 
CALL 
LD 
LD 
POP 
CALL 
POP 
JR 
LD 
AND 
JR 
PUSH 
PUSH 
LD 
CALL 
PUSH 
LD 
CALL 
POP 
POP 
POP 
JR 
LD 
LD 


OCD84H 
HL 

HL, 0050H 
OCASFH 
À, (HL) 
OTH 

Z, OCDAAH 
(HL), 02H 
DE, 0045H 
HL, DE 

E, CHL) 
HL 

D, CHL) 
HL 

DE 

HL 

DE,HL 

A, 0/H 
ODBEBH 
BH 

C,L 

HL 
0DO49H 
DE 

NC, ODO3EH 
A,E 

7FH 
Z,0DO3EH 
AF 

HL 

HL, OOEuH 
OCA9FH 
HL 

BC, OO01H 
0DO49H 
HL 

DE 

BC 

NC, ODO3EH 
C,B 

B, OOH 


> Sauver pile, tester flag OPENIN 
adresse de chargement 

shi=hl+iy 

;stester marque In Char(1)/In Direct 
;Si Disc in Char, 
:erreur,interruption de l'instruction 
-entrer marque Disc In Direct 


>:nombre Caractères dans de 


adresse de chargement dans h1 
;et échanger 

;, 2°7=128 

>: divise nombre caractères/128 
;résultat nombre enreg, dans bc 


:adresse de chargement dans hI 
>; charger nombre enregistr,. calculé 


;=> erreur 


shl=hl+iy 


HUE: de 


DO3C 
DO3E 
D041 
DO44 
DO4S 
DO46 


ÉHÉKÉERHÉERHHHHHEHE 


DO49 


RER HEHHHHHHHHHH 


DO4B 
DOUE 
DOUF 
D052 


DO55 
DO56 
DO5/ 
DOSA 
DOSD 
DOSE 
DO5F 
DO60 
D061 
D063 
DO64 


LÉRSSRSSSSLELLRS, 


DO65 
DO68 


HE M MH HE HE HE 


DO69 
DO6A 
DOGB 
DO6C 
DO6F 
D072 
DO73 
DO74 
DO75 


EDBO 
216F00 
CD9FCA 
37 

JF 
C3F9DB 


1814 


CD92D3 
DO 

116700 
CD98CA 


TA 

1F 
DC52D2 
118000 
19 

OB 

78 

BÎ 
20E8 

S 7 

C9 


CD6E4CF 
DO 


C5 
D5 
F5 
215300 
CD9FCA 
JE 
29 
56 
1B 


LDIR 
LD 
CALL 
SCF 
SBC 
JP 


JR 


HL, OO6FH 
OCAIFH 


A, À 
ODBFH 


ODOSFH 


;Id hi, (hl) 


enregistrements dans buffer OPENIN, nombre enreg. dans bc 


CALL 
RET 
LD 
CALL 


LD 
RRA 
CALL 
LD 
ADD 
DEC 
LD 
OR 
JR 
SCF 
RET 


0D392H 
NC 

DE, 006/H 
OCA98H 


A, (DE) 


C,0D252H 
DE, 0080H 
HL, DE 

BC 

A,B 

È 

NZ, ODO4BH 


DISC TEST EOF 


CALL 
RET 


OCF64H 
NC 


DISC RETURN 


PUSH 
PUSH 
PUSH 
LD 
CALL 
LD 
INC 
LD 
DEC 


HL 

DE 

AF 

HL, 0053H 
OCA9FH 
E, CHL) 
HL 

D, CHL) 
DE 


:enreg., évent, de disc, dans buffer 
;=> fin fichier au autre erreur 


:de=de+iy, adresse type de fichier 
dans header OPENIN 
;tester type de fichier 


;3=> Carry que pour ‘Protected File” 
> longueur d'enregistrement 
>augnenter pointeur de buffer 
:nombre d'enregistrem. encore à lire 
;tesSter si nombre = 0 


;=> pas encore tous Ius 
; tout est OK, Iu tous les enreg,. 


:appeler Disc In Char 
;RET Si EOF, sinon renvoyer caractère 
; dans buffer 


>hI=hI+iy 


= EL-08- 


D0/76 
DO/7 
D0/8 
D0/79 
DO7A 
DO/B 
DO/E 
DO/F 
DO82 
DO85 
DO86 
DO8/ 
DO89 
DO8A 
DO8B 
DO8C 
DO8D 
DO8E 


LRRSSS SRE LLLLLLS: 


DO8F 
D092 
DO93 
DO94 
DO95 
D096 
DO98 
D099 
DO9C 
DO9D 
DOME 
DOAO 
DOA3 
DOAS 
DOA8 
DOA9 
DOA À 
DOAD 
DOBO 
DOB1 
DOB2 
DOB5 


72 

2B 

73 

54 

SD 
214200 
19 
CDABD/ 
211500 
19 

34 
2002 
23 

34 

4] 

D1 

ET 

C9 


CD8DCD 
se 

DS 

C5 

F5 
FDES 
Di 
219400 
19 

LE 
FEO2 
CAAACD 
3601 
21B200 
19 

de, 
CDF9DB 
OTO0F8 
09 

D5 
DCT8D1 
D1 


LD 
DEC 
LD 
LD 
LD 
LD 
ADD 
CALL 
LD 
ADD 
[NC 
JR 
INC 
INC 
POP 
POP 
POP 
RET 


CHL),D 
HL 
(HL),E 
D,H 

E,L 

HL, OOU2H 
HL, DE 
OD7ABH 
HL, 0015H 
HL, DE 
CHL) 

NZ, ODO8BH 
HL 

(HL) 

AF 

DE 

HL 


DISC OUT CHAR 


CALL 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
POP 
LD 
ADD 
LD 
CP 
JP 
LD 
LD 
ADD 
PUSH 
CALL 
LD 
ADD 
PUSH 
CALL 
POP 


OCD8DH 
HL 

DE 

BC 

AF 

[Y 

DE 

HL, O0SAH 
HL, DE 

A, CHL) 
02H 
Z,OCDAAH 
(HL),01H 
HL, 00B2H 
HL, DE 

HL 

ODBF SH 
BC, OF 800H 
HL, BC 

DE 
C,0D118H 
DE 


range pile, teste flag OPENOUT actif 


accu contient le caractère 
:Disc-Mempool dans de 


;: flag Disc Out Mode (Char/Direct) 
;de header dans accu 

;jusqu'ici Disc Out Direct? 

;=> fin de l'instruction 

-entrer marque Disc Out Char 


:(hl):= nombre car.dns buffer OPENOUT 


:1d h]l,(hl), nbre caractères dans hl 


;:=> plus de2K,écrire données sur disc 


ex. 09 


DOB6 
DOB/ 
DOB8 
DOB9 
DOBB 
DOBC 
DOBF 
DOCO 
DOC3 
DOC6 
DOC7 
DOC8 
DOC9 
DOCA 
DOCB 
DOCC 


DOCD 
DOCE 
DODO 
DOD1 
DOD2 
DOD3 
DOD4 
DODS 
DOD6 
DOD/ 


HORMONE 


DOD8 
DODB 
DODC 
DODD 
DODE 
DOE1 
DOE 4 
DOES 
DOE 7 
DOE À 
DOEC 


ET 

34 

23 
2001 
34 
21DF00 
19 
CDABD/ 
219D00 
19 

F1 

HE 

23 

46 

2B 

02 


34 
2002 
42 
34 
C1 
D1 
ET 
37 
9F 
cg 


CD8DCD 
F5 

de 

D5 
219A00 
CD9FCA 
JE 
FEO1 
CAAACD 
3602 
112000 


POP 
INC 
INC 
JR 
INC 
LD 
ADD 
CALL 
LD 
ADD 
POP 
LD 
[NC 
LD 
DEC 
LD 


INC 
JR 

INC 
[NC 
POP 
POP 
POP 
SCF 
SBC 
RET 


HL 

CHL) 

HL 

NZ, ODOBCH 
(HL) 
HL,O0ODFH 
HL, DE 
OD/ABH 
HL, OO9DH 
HL, DE 

AF 

C, CHL) 
HL 

B, CHL) 
HL 
(BC), A 


CHL) 

NZ, ODOD2H 
HL 

CHL) 

BC 

DE 

HL 


A, À 


DISC OUT DIRECT 


CALL 
PUSH 
PUSH 
PUSH 
LD 
CALL 
LD 
CP 
JP 
LD 
LD 


OCD8DH 
AF 

HL 

DE 

HL, OO9AH 
OCA9FH 
À, CHL) 
OTH 

Z, OCDAAH 
CHL), 02H 
DE, 0020H 


augmenter nmbre car.dans buffer user 
;valeur deux octets 

>n'augmenter octet fort 

;que Si nécessaire 


augmenter File Character Counter 


; (h1) => vecteur sur pointeur dans 
;:buffer user 
>DC => pointeur dans buffer user 


>placer caractère dans accu dans 
buffer user 

;augmenter pointeur dans buffer user 
également octet fort si nécessaire 


;:marque que tout est OK 
;message au système CPC: OK 


;:range pile, teste flag OPENOUT actif 
>accu = type de fichier 

adresse, à partir de laquelle écrire 
: longueur du bloc de données 


shi=hl+iy, Disc Out Mode(Char/Direct) 
; dans accu 

:Disc Out Char actif jusqu'ici? 
alors erreur, fin de l'instruction 
sentrer marque direct 


= uLE OS 


DOEF 
DOFO 
DOF1 
DOF2 
DOF3 
DOF4 
DOFS 
DOF6 
DOF 7 
DOF8 
DOFB 
DOFC 
DOFD 
DOFE 
DOFF 
D102 
D103 
D104 
D105 
D106 
D107 
D108 
D109 
D10A 
D10B 
D10E 
D10F 
D110 
D111 
D112 
D113 
D116 
D117 


LÉSSSSSSSSSSSSS: 


D118 
D11A 
D11B 
D11E 
DT1F 
D120 
D121 


19 

70 

2B 

71 

où 

2B 

70 

2B 

71 
112900 
19 

70 

2B 

71 
11D3FF 
19 

71 

20 

70 

C1 

25 

71 

22 

70 
11E6FF 
19 

71 

23 

70 

F1 
111500 
19 

77 


FDES 
D 
21B600 
19 

/E 

B/ 
2818 


ADD 
LD 
DEC 


POP 
DEC 
LD 
DEC 
LD 
LD 
ADD 
LD 
DEC 
LD 
LD 
ADD 
LD 
INC 
LD 
POP 
INC 
LD 
INC 
LD 
LD 
ADD 
LD 
INC 
LD 
POP 
LD 
ADD 
LD 


HL, DE 

(HL),B ;:bCc = adresse entrée 
HL 

(HL),C 

BC ;:bc = longueur bloc de données 
HL 

(HL),B 

HL 

(HL),C 

DE, 0029H 

HL, DE 

(HL),B 

HL 

CHE; C 

DE, OFFD3H 

HL, DE 

(HL33C 

HL 

(HL),B 

BC 

HL 

(HL),C 

HL 

(HE) 

DE, OFFE6H 

HL, DE 

(HL),C 

HL 

(HL),B 

AF : Type de fichier dans accu 
DE,0015H 

HL, DE 

(HL),A > Type fichier dns bloc header OPENOUT 


écrire 2K (buffer user avec OUT CHAR) sur la disquette 


PUSH 
POP 
LD 
ADD 
LD 
OR 
JR 


[Y ;:Disc Mempool 

DE : dans de 

HL, 0O0B6H 

HL, DE 

A, CHL) 30octet header ‘First Block’ 
A 


Z,0D13BH ;=> pas le premier DbIoc 


AA 


D123 21B100 LD HL, OOBTH 


D126 19 ADD il; DE :(hl):= Type de fichier 

Di27 7E LD A, CHL) > Type de fichier dans accu, 
D128 E60OF AND OFH >Hi-Nibble est indifférent 
D12A FEO6 CP 06H >marque ‘unprotected ASCII"? 
D12C 280D JR Z,0D13BH ;=> c'est le cas 

D12E 212C00 LD HL, 002CH 

D131 19 ADD HL, DE .hl=> bloc contrôle fichier OPENOUT 
D132 DS PUSH DE ;:Disc-Mempool 

D133 EB EX DE, HL 

D134 CDA7D7 CALL OD7A7H >Nombre enreg. +1 pour enreg. header 
D137 CD/DD7 CALL 0D77DH ;>tester nombre enreg, dans FCB 
D13A D1 POP DE 

D13B 21B200 LD HL, 00B2H 

D13E 19 ADD HL, DE 

D13F ES PUSH HL 

D140 5E LD E, (RL) ;Block Char Counter, 

D141 23 INC HL ; Nombre des caractères dans de 
D142 56 LD D, (HL) 

D143 O01E8FF LD BC, OFFE8H 

D146 09 ADD HL, BC shl => User Buffer Vector 

D147  CDF9SDB CALL ODBF SH ;1d hl,(hl), hi => User Buffer 
D14A ES PUSH HL 

D14B CD64D1 CALL 0OD164H :Buffer dans enreg,, alors sur Disque 
DIHE C1 POP BC ;:bc => User Buffer 

D14F E1 POP HL shl => Character Count 

D150 3600 LD (HL), 00H >mettre à O0 

D152 23 INC HL 

D153 3600 LD (HL), 00H 

D155 23 INC HL 

D156 23 INC HL 

DI57 23 INC HU 

D158 3600 LD (HL), OCH 

D15A 11E7FF LD DE,OFFE/7H 

D15D 19 ADD HL, DE 

DI5E 71 LD (HL):C 

D15F 23 INC HL 

D160 70 LD CHEYSP 

D161: :37 SCF ;:Marque OK 

D162 9F SBC A, A 

D163 C9 RET 


+ Le 


RÉ ED D EE 6 EE 6 


D164 
D165 
D167 
D168 
D16B 
D16C 
D16D 
D16E 
D171 
D172 
D173 
D175 
D176 
D177 
D179 
D17C 
D17F 
D180 
D183 
D185 
D186 
D187 
D188 


LÉLELLLLLLELELSS.: 


D18A 
D18B 
D18E 
D191 
D192 
D193 
D195 
D196 
D199 
D19C 
D19D 
D1AO 
D1A3 
DIA4 
DIAS 
DIA8 


D5 
3E07 
EB 
CDEBDB 
EB 

42 

uB 
CD88D1 
C1 

79 
E67F 
C8 

UF 
0600 
11E400 
CD98CA 
D5 
CD1BB9 
3E1A 
12 

ET 

03 
1827 


ES 
11B100 
CD98CA 
TA 

1F 
3013 
C5 
11E400 
CD98CA 
DS 
018000 
CDTBB9 
El 

C1 
CD52D2 
CDAFD3 


PUSH 
LD 
EX 
CALL 
EX 
LD 
LD 
CALL 
POP 
LD 
AND 
RET 
LD 
LD 
LD 
CALL 
PUSH 
CALL 
LD 
LD 
POP 
INC 
JR 


écrire enreg. 


PUSH 
LD 
CALL 
LD 
RRA 
JR 
PUSH 
LD 
CALL 
PUSH 
LD 
CALL 
POP 
POP 
CALL 
CALL 


DE 
A,0/H 
DE, HL 
ODBEBH 
DE, HL 
B, D 
CE 
0D188H 
BC 

A, C 
/FH 

Z 

C,A 

B, OOH 
DE, OOE4H 
OCA98H 
DE 
0B91BH 
A, 1AH 
(DE),A 
HL 

BC 
0D1B1TH 


HL 

DE, OOBTH 
OCA9I8H 
A, (DE) 


NC, OD1A8H 
BC 

DE, OOE4H 
OCA98H 
DE 

BC, O080H 
0B9TBH 
HL 

BC 
0D252H 
OD3AFH 


;Nombre caractères dans bloc 

>Nombre enreg./bloc 

;>Nombre dans de 

;divise nombre car.s /128 

:résultat nécessitait enreg. dans de 
set bc 


;transférer enregistrements 

; Nombre caractères 

;octet faible dans accu 

> limiter à Un enregistrement 

;si zéro, alors pas d'autres octets 

; Sinon reste fichier dans nouvel enr, 
;alors octet fort = zéro 


;de=de+iy 

;sbuffer enregistrement 

;KL LDIR, transf.dernier enr.dns buffe 
;marque EOF 

ajouter 

;shl => buffer enregistrement 

;DC = augmenter compteur d'’enregistr. 


(Nombre dans bc) dans fichier 


; de=-detiy 

> Type de fichier dans accu 
;3Bit O mis? 

;=> pas mis, pas ‘Protected’ 


; de=de+{y 

;de = buffer enregistrement 

: longueur d'enregistrement 

:KL LDIR, bloc header dns buffer enr. 


; protéger’ enregistrement 
:enreg.dns buffer secteur, évtl disc 


AL 


DTAB 
DIAC 
DTAF 
D1BO 
D1B1 
D1B2 
D1B3 
D1B5 


LÉSLÉRSRSLSSRÉR RSS) 


D1B6 
D1B9 


EH HE EH DE EEE HE JE EN 


D1BC FD3608FF 


D1C0 


LÉSLSSLSSEREEE EE) 


D1C2 
D1C5 
D1C8 
D1CB 
D1CC 
D1CF 
D1DO 
D1D2 
D1D3 
D1D6 


LÉELSLELELLLLLLLS) 


D1D8 
D1DB 
DIDE 
D1DF 
D1EO 
D1E1 
D1E2 
D1E3 
DITES 


D1E8 
DIEB 


ET 
118000 
19 

OB 

78 

B1 
20D5 
C9 


CD84CD 
CDESCI 


186E 


CD8DCD 
112D00 
CD98CA 
AF 
CD3CD8 
1B 
3EFF 
12 
CD1FCS 
1858 


21DF00 
CD9FCA 
/E 


24 


B6 

23 

BG 
28DD 
CD8DCD 


CD18D1 
112C00 


POP 
LD 
ADD 
DEC 
LD 
OR 
JR 
RET 


HL 

DE , CO80H 
HL, DE 
BC 

A,B 

C 


NZ,OD18AH 


DISC dans CLOSE 


CALL 
CALL 


DISC 
LD 
JR 


DISC 
CALL 
LD 
CALL 
XOR 
CALL 
DEC 
LD 
LD 
CALL 
JR 


OCD84H 
OCSESH 


dans ABANDON 


sh1l => buffer enregistrement 
: longueur d'enregistrement 


>: diminuer nombre des enregistrements 
;:tous enreg. écrits? 


;=> encore enreg, à écrire 


> Sauvegarder pile, tester flag OPENIN 
>sMoteur éteint, déclencher Event 


(1Y+08H),0FF:mettre flag OPENIN actif sur inactif 


OD230H 


OUT ABANDON 


OCD8DH 
DE, OO2DH 
OCA98H 

À 

0D83CH 
DE 
A,OFFH 
(DE), A 
OCS1FH 
0D230H 


DISC OUT CLOSE 


LD 
CALL 
LD 
[NC 
OR 
INC 
OR 
JR 
CALL 


CALL 
LD 


HL, OODFH 
OCAIFH 
A, CHL) 
HL 

CHL) 

HL 

CHL) 
Z,0D1C2H 
OCD8DH 


0D118H 
DE, 002CH 


sfin 


; Sauvegarde pile, teste flag OPENOUT 


; de-de+iy 


;: libérer à nouveau blocs dans 
stable d'affectation 


; Chercher piste 0 
sfin 


:File Character Count 

shi=hl+iy 

steste si des caractères ont été 
; transférés, 


;:SinonDiscOutAbandon,pas d'entrée DIR 
;Sauver pointeur pile, tester flag 
OPENOUT 

;transf. dernier enreg, dans buffer 


- 1] 74 - 


DIFE 
D1F1 
D1F2 
D1F5 
DIF8 
D1FB 
D1FE 
D1FF 
D200 
D203 
D204 
D205 
D206 
D208 
D209 
D20B 
D20D 
D210 


EH OH HE HE HE EEE HE HE HE HE 


D212 
D214 
D216 
D219 


HHHCHOHCHH HH EE HE HE 


D21B 
D21E 
D21F 
D220 
D221 
D223 
D225 
D228 
D229 
D22B 
220 
D22D 
D230 
D231 
D232 


CDS8CA 
D5 
CD8CD/ 
019F00 
CDSOCA 
211200 
09 

DE 
210900 
09 

JE 

3C 
2016 
7B 
EGOE 
2005 
CDB3D2 
180C 


FEO2 
2005 
CDB/D2 
1803 


CDA8D2 
60 

69 

7B 
E6OF 
FEO6 
CHAUCE 
C1 
3EFF 
02 

03 
CDDAD2 
37 

JF 

CS 


CALL 
PUSH 
CALL 
LD 
CALL 
LD 
ADD 
LD 
LD 
ADD 
LD 
INC 
JR 
LD 
AND 
JR 
CALL 
JR 


CP 
JR 
CALL 
JR 


CALL 
LD 
LD 
LD 
AND 
CR 
CALL 
POP 
LD 
LD 
INC 
CALL 
SCF 
SBC 
RET 


OCA98H 

DE 

OD/8CH 
BC, 009FH 
OCA9OH 
HL,0072H 
HL, BC 

E, CL) 
HL, 000SH 
HL, BC 

A, CHL) 

Â 
NZ,0D21EH 
AE 

OEH 

NZ, 0D212H 
OD2B3H 
OD21EH 


02H 
NZ,0D21BH 
OD2B/H 
OD21EH 


OD248H 
H,B 
L;€ 
AE 
OFH 
06H 
NZ,OCEAUH 
BC 

À, OFFH 
(BC),A 
BC 
OD2DAH 


A,A 


;de=de+iy, nom fichier dans 

;FCB OPENOUT 

-entrer nom fichier et affectation 
:bIocS dans dir 

3bc=bc+iy, bc:= bIoc header OPENOUT 


:(hl):= Type de fichier 


;1er caractère extension dans accu 
stester si ffh 

;:=> extension indiquée 

; Type de fichier dans accu 


sentrer extension “BAS 


;: Tvpe de fichier 2? 


;entrer extension ‘“BIN' 


;sentrer extension 3 espaces 
;>Adresse bloc header OPENOUT dans hl 


: Type de fichier dans accu 
3Hi-Nibble est indifférent 
; 'Unprotected ASCII"? 

;:=> est ‘protected’ 

;FCB OPENOUT dans bc 


:Marque, OPENOUT pas actif 
>:remplace ‘$$$’ par extension orig. 


:Marque DISC OUT CLOSE CK 
:message au système CPC: tout est OK 


"ill? 


HR EE HE OH EH EE 


D233 FD6602 LD H, (IY+02H) 


D236 FD360500 LD (IY+05H),00H ;pas OPEN actif sur lecteur appelé 
D23A 110800 LD DE, O008H 

D23D CD43D2 CALL 0D243H 

D240 112C00 LD DE, OO2CH 

D243 CD98CA CALL OCA98H ; de=de+iy 
D246 1A LD A, (DE) 

D247 BC CP H 

D248 CO RET NZ 

D249 3EFF LD A,OFFH 

D24B 12 LD (DE),A 

D24C 13 INC DE 

D24D 3E09 LD À, OSH 

D24F C3CADB JP ODBCAH 

HO HE HE JE HE EH EEE 

D252 ES PUSH HL 

D253 C5 PUSH BC 

D254 ES PUSH HL 

D255 110101 LD DE,0101H 

D258 0681 LD B,81H 

D25A 180E JR 0D26AH 


RARSÉRMNARNRNE  FPPOtECteT. Fire", -PrOTECTIDN par XÜR 


D25C E3 EX (SP),HL ;spointeur buffer OPENIN dans h1 
D25D E7 RST 20H ;RAM LAM, caract. de buffer dans accu 
D25E E3 EX (SP), AL 

D25F AE XOR (HL) 

D260 DDAEOO XOR (I X+00H) 

D263 E3 EX (SP),HL 

D264 77 LD (HL),A ;:retour octet dans buffer OPENIN 
D265 23 INC HL ;augmenter pointeur buffer 

D266 E3 EX (SP),HL ;et à nouveau sur la pile 

D267 DD23 INC IX ;prochain octet XOR 

D269 23 INC HL ;prochain octet XOR 

D264 15 DEC D ;compteur octets pour table ix 
D26B 2006 JR NZ,0D273H ;=> table pas encore terminée 
D26D 160B LD D,0BH ;table 11 octets pour ix 

D26F DD2181D2 LD IX,0D281H  ;début table dans ix 

D273 1D DEC E ;compteur octets pour table hl 
D274 2005 JR NZ,0D2/7BH  ;=> table pas encore terminée 


eULE 707 


D276 T1EOD LD E, ODH 


>: table 13 octets pour hI 


D278 218CD2 LD HL,O0D28CH ;début table 

D27B 1ODF DJNZ 0D25CH :b:= Nombre des octets à coder 
D27D EI POP HL 

D2/7E D1 POP DE 

D27F ue POP HL 

D280 C9 RET 


HO EN EH HE table pour i x 
D281 49 B1 36 FO 2E 1E 
D287 06 2A 28 19 EA 


2 EERRRE table DOUT h] 
D28C E2 9D DB 1A 42 29 

D292 39 C6 B3 C6 90 45 

D298 8A 


LÉERLSSLELLLLLLSZ) extensions 

D299 202020 DEFM CURE: 
D29C 242424 DEFM "$$$" 
D29F 42414B DEFM "BAK' 
D2A2 424153 DEFM "BAS 
D2AS 42494E DEFM "BIN’ 


LÉRÉSLESLLLLLLSS ES: 


D2A8 AF XOR A 
D2A9 180F JR OD2B9H 
LÉLSRLLLLILLSLL. 

D2AB  3E03 LD A, 03H 
D2AD 180A JR OD2B9H 
LÉRLLLILLLZLLLSZ) 

D2AF  3E06 LD A, 06H 
D2B1 1806 JR OD2B9H 
LÉRLÉELLLSLLLLZZ.] 

D2B3 3F09 LD À, 09H 
D2B5 1802 JR OD2B9H 
LÉRÉRÉSLLLLLLSSS.: 

D2B7 3E0C LD A, OCH 


;trois espaces 


:"$$$" pour nom fichier temporaire 


; "BAK' pour fichier backup 


; BAS’ pour fichiers Basic 


; 'BIN' pour fichiers binaires 


= [7e 


D2B9 
D2BA 
D2BC 
D2BD 
D2BF 
D2C0 
D2C1 


LRRÉSSLLÉELLESSS: 


D2C3 
D2C4 
D2C7 
D2CA 
D2CB 
D2CC 
D2CF 
D2D0 
D2D3 
D2D4 
D2D6 
D2D/ 
D2D8 
D2D9 


LÉLLLLLLLLLLLS TS: 


D2DA 
D2DD 
D2DE 
D2E0 
D2E1 
D2E2 
D2E4 
D2E7 
D2E8 
D2EB 
D2EC 
D2EF 
D2F0 
D2F2 
D2F5 
D2F8 
D2FA 


D5 
C699 
SF 
CED2 
93 
D7 
1807 


D5 
114800 
CD98CA 
ES 

CS 
210900 
09 
010300 
EB 
EDBO 
C1 

ET 

D1 

C9 


210C00 
09 
36FF 
25 

23 
36FF 
CD83D6 
ES 
210000 
E3 
CDA2D6 
E3 
3028 
CDAFD2 
CDD8D7 
3008 
2601 


PUSH 
ADD 
LD 
ADC 
SUB 
LD 
JR 


DE 
A,99H 
E, A 

A, OD2H 
E 

D, A 
OD2CAH 


ajouter octet faible de début table 
;srésultat dans e 

ajouter octet fort avec Carry 
>Soustraire octet faible 

zsoctet fort résultat dans à 


entrer extension dans nom fichier 


PUSH 
LD 
CALL 
PUSH 
PUSH 
LD 
ADD 
LD 
EX 
LDIR 
POP 
POP 
POP 
RET 


LD 
ADD 
LD 
INC 
INC 
LD 
CALL 
PUSH 
LD 
EX 
GALL 
EX 
JR 
CALL 
CALL 
JR 
LD 


DE 

DE, OUA8H 
OCA98H 
HL 

BC 

HL, O0OSH 
HL, BC 
BC, 0003H 
DE, HL 


BC 
HL 
DE 


HL, OOOCH 
HL, BC 
CHL),OFFH 
HL 

HL 
CHL),OFFH 
0D683H 

HL 

HL, O0OCH 
(SP), HL 
OD6A2H 
(SP), HL 
NC, OD3TAH 
OD2AFH 
OD/D8H 
NC, OD302H 
H, 01H 


; de=de+iy 
>: longueur nom fichier avec User, 
;Sans extension 


;: longueur extension 


sentrer extens,voulue dns nom fichier 


;: longueur nom fichier + extension 


;:nbre entrées Dir et tab affect sur 0 


:prochaine entrée DIR dans (de) 


;:=> pas d'autre entrée dans DIR 
ajouter extension ‘’BAK' 

> Cherche nom fichier indiqué sur disc 
;=> BAK pas présent 


+ 1:78 


D2FÉ 
D2FF 
D301 
D302 
D305 
D308 
D30A 
D30C 
D30F 
D311 
D312 
D515 
D314 
D316 
D31/ 
D318 
D31A 
D31B 
D31C 
D31D 
D31F 
D320 
D322 
D323 
D324 
D326 
D327 
D329 
D32C 
D32F 
D330 
D5$5 


HOHOHOHEOHOHOHE EH JE HEH 


D335 
D338 
D33B 
D33E 
D341 
D342 
D345 
D348 


CDD9D9 
3801 
24 
CDC3D2 
CDD8D/ 
3008 
2E01 
CDD9D9 
3801 
26 

ie 

B/ 
28D5 
7D 

B/ 
28D1 
FI 

7D 

B/ 
2843 
3D 
2866 
/C 

B/ 
283C 
3D 
2845 
CD83D6 
CDA2D6 
DO 
CD35D3 
18F7 


CDAFD2 
CDD8D/ 
DAAAD4 
CD51D3 
D8 

CDC3D2 
CDD8D/ 
DO 


CALL 
JR 
INC 
CALL 
CALL 
JR 
LD 
CALL 
JR 
INC 
LD 
OR 
JR 
LD 
OR 
JR 
POP 
LD 
OR 
JR 
DEC 
JR 
LD 
OR 
JR 
DEC 
JR 
CALL 
CALL 
RET 
CALL 
JR 


CALL 
CALL 
JP 
CALL 
RET 
CALL 
CALL 
RET 


ODSDSH 
C,OD302H 
H 

OD2C3H 
OD/D8H 
NC, 0D312 
L,01H 
OD9DSH 
C,0D312H 


s 
ZT 


D2EBH 


s 
Tr © 


s 


Le nn 
O O 
© =, 
LN ND 
an m 
ND T 
ZT TT 


s 
Lo 
(e 
LN 
© 
2e) 
LE 


s 


, OD362H 


NB BEN BEBENB BEN EN BEBE 
LT 
—— 


Z,0D36EH 
OD683H 
OD6A2H 
NC 
0D335H 
OD32CH 


OD2AFH 
OD/D8H 
C,OD4AAH 
0D351H 

C 

OD2C3H 
OD/D8H 
NC 


;steste,si fichier READ ONLY 
3=> St READ ONLY 


sentrer extension dans (de) 
;cherche nom indiqué sur disque 
H _;=> fichier pas présent 


;steste, si fichier READ ONLY 
;=> fichier est READ ONLY 


;nbre entrées Dir & tab affect sur 0 


-entrer extension ‘’BAK' 

;cherche nom fichier indiqué sur disc 
;=> trouvé 

; Chercher fichier 
;=> trouvé 
ajouter extension d'origine 

; cherche nom fichier indiqué sur disc 
=> pas trouvé 


$$$" dans Dir 


= FI:79;< 


D349 
D34A 
D34B 
D34C 
D34F 


HR He EE 


D351 
D354 
D357 
D358 
D359 
D35A 
D35B 
D35E 
D35F 


HOROHOHEOHOEHHEHEN 


D362 
D365 
D368 
D369 
D36C 


LR SELS LSELSSS: 


D36E 
D371 
D374 
D375 


D3/78 


HOROHHHEEE EHE E 


D37A 
D3/D 
D37E 
D381 
D384 
D38/ 


FROM EH EE HE 


C5 

42 

LB 
CDAFD2 
180D 


CDABD2 
CDD8D/ 
DO 
CS 
42 


4B 


CDC3D2 
C1 
C3/AD9 


CD83D6 
CDA2D6 
DO 
CD3ED3 
18F7 


CD83D6 
CDA2D6 
DO 

CD/AD3 


18F/ 


CD51D3 
D8 
CDC3D2 
CDD8D/ 
DAAAD4 
69 


D388 CDC3D2 


PUSH 
LD 
LD 
CALL 
JR 


BC 
B, D 
CE 
OD2AFH 
OD35EH 


zentrer extension ‘’BAK' 


teste, si nom fichier avec ‘$$$’ est déjà sur disquette 


CALL 
CALL 
RET 
PUSH 
LD 
LD 
CALL 
POP 
JP 


CALL 
CALL 
RET 
CALL 
JR 


CALL 
CALL 
RET 

CALL 


JR 


CALL 
RET 
CALL 
CALL 
JP 
RET 


fichier 
CALL 


OD2ABH 
OD/D8H 
NC 
BC 
B, D 
C.E 
OD2C3H 
BC 
OD9/AH 


OD683H 
OD6A2H 
NC 

OD33EH 
OD365H 


0D683H 
OD6A2H 
NC 

OD3/AH 


0OD3/71H 


0D351H 
C 

OD2C3H 
OD/D8H 


C, OD4AAH 


:entrer extension ‘$$$ 

;cherche nom fichier indiqué dans Dir 
=> pas trouvé 

; (bc) => nom fichier 

:adresse de T’entrée Dir identique 

: dans DC 

écrire extension d'origine dans 
enregistrement Dir 


; Nbre entrées Dir & tab affect sur 0 
;déterminer proch.entrée Dir, de=nbre 
;=> pas d'autre entrée Dir 

;cherche noms fich. temp($$$)et orig. 
;continuer recherche 


;Nore entrées Dir & tab affect sur 0 
;déterminer proch.entrée Dir, de=nbre 
;=> pas d'autre entrée Dir 

:Si fichier temp. trouvé, ext,orig,. 
dans enregistrement 

:Sinon continuer recherche 


zentrer extension dans (de) 
;cherche nom fichier indiqué sur disc 


READ ONLY, interrompre extension 


OD2C3H 


sentrer extension dans (de) 


= F0 


D38B 50 LD D,B 

D38C 59 LD EE 

D38D 3EOA LD À, OAH ;mess.systèe 10, fichier read only 
D38F C3B1CD JP OCDBTH ssortir, terminer instruction 
LRSLRSSSSSRSRLSLSS: 

D392 ES PUSH HL 

D393 DS PUSH DE 

D394 C5 PUSH BC 

D395 ES PUSH HL 

D39 110800 LD DE, 0008H 

D399 CD98CA CALL OCA98H ;:de=-de+iy, adresse FCB OPENIN 

D39C CD10D4 CALL 0D410H ;steste, si dernier enregistrement Iu 
D39F 3008 JR NC,OD3ASH ;=> pas d'autre enregistr.dns fichier 
D3A1 EB EX DE, HL ;de:=No enreg,, hl:= nom fich dns FCB 
D3A2 E3 EX (SP},HL :(hl):= buffer enregistrement 

D3A3 CDE8D9 CALL ODSE 8H sretirer enregistr.dans buffer enreg. 
D3A6 D1 POP DE 

D3A7 1848 JR OD3F1H 

LÉSSLLSLSLLLLLZLS.; 

D3A9 EI] POP HL 

D3AA C1 POP BC 

D3AB D1 POP DE 

D3AC El POP HL 

D3AD B/ OR À 

D3AE C9 RET 


PPOCOOOONERRERKX enreg, dans buffer secteur, éventuellement sur disque 


D3AF ES PUSH HL :buffer enregistrement 

D3BO D5 PUSH DE 

D3B1 C5 PUSH BC ;: Nombre enreg, 

D3B2 ES PUSH HL ;:et encore buffer enregistrement 
D3B3 112C00 LD DE, 002CH 

D3B6 CDS8CA CALL OCA98H ;de=de+iy, FCB OPENOUT 

D3B9 CDC8D6 CALL OD6C8H ;teste si DISK FULL 

D3BC 380B JR C,0D3CSH ;=> encore place 

D3BE 3E08 LD À, 08H message système 8, disc full 
D3C0O C2B1CD JP NZ,OCDBIH  ;sortir, interrompre instruction 
D3C3 CD8CD/ CALL 0D/8CH ; cherche entrée Dir libre 


D3C6 CDFADE CALL OD6F AH 
D3C9 CD2FD7 CALL OD/2FH 


ets 


D3CC 
D3CE 
D3DO 
D3D1 
D3D2 
D3D5 
D3D6 
D3D8 


0EO0 
3818 
D5 

EB 
CD93D8 
EB 
3E08 
D2B1CD 


LD 
JR 
PUSH 
EX 
CALL 
EX 
LD 
JP 


C, OCH 

C, OD3E8H 

DE 

DE,HL 

0D893H >chercher bloc libre et occuper 

DE,HL 

A,08H >Sortir message système 8, disc full 
NC,OCDBIH ; interrompre instr, si pas bloc libre 


JE 82e 


D3DB 
DSDC 
DSDD 
D3DE 
D3EO 
D3E1 
D3E2 
D3E3 
D3E6 
D3E8 
D3E9 
D3E A 
D3ED 
D3SEE 
D3F1 
D3F4 
D3F5 
D3F6 
D3F7 
D3F8 


LÉRLLELESLLLELLS. 


D3F9 
D3FA 
D3FD 
D400 
D403 
D406 
D407 
D408 
DAOA 


DHOD 


LRÉLLSLSLLLLLLLZZ] 


D410 
D413 
D415 
D416 
D419 
DATA 
D41B 


F2 

78 

B/ 
2802 
25 

72 

Di 
CD2FD/ 
0EO2 
EB 

CS 
CDF3D9 
D1 
CD/DD/ 
CDA7D/ 
C1 

DT 

ET 

2 

C9 


ES 
112C00 
CD98CA 
CD9CD/ 
CD10D4 
EB 

ET 
0E00 
DAF3D9 


C3AFCD 


CDC8D6 
3812 
CO 
CDFAD6 
D5 

42 

uB 


LD 
LD 
OR 
JR 
INC 
LD 
POP 
CALL 
LD 
EX 
EX 
CALL 
POP 
CALL 
CALL 
POP 
POP 
POP 
SCF 
RET 


PUSH 
LD 
CALL 
CALL 
CALL 
EX 
POP 
LD 
JP 


JP 


CHEJ,E ranger bloc occupé 
A,B 
A 
Z,OD3E 2H 
HL 
(HL),D 
DE 
0D72FH 
C, 02H 
DE, HL 
(SP: HE 
OD9F3H senregisStrement dans buffer secteur 
DE éventuellement sur disque 
0D/77DH 
OD7A7H ;nombre enregistrements +1 
BC 
DE 
HL 
:marque que tout est OK 


HL 

DE, 002CH 

OCA98H 

0D79CH 

0D410H 

DE, HL 

HL 

C, 00H 

C,0D9F3H senregistrement dans buffer secteur, 
éventuellement sur disque 

OCDAFH :SortirBad command, interrompre 
> instruction 


teste, Si dernier enregistrement a été Iu 


CALL 
JR 
RET 
CALL 
PUSH 
LD 
LD 


OD6C8H 
C,0D427H 
NZ 

OD6F AH 
DE 

B, D 

CE 


RL O5 


D41C 
D4TD 
D41E 
D421 
D422 
D423 
D426 
D427 
D42A 
D42D 


OR E OEH EH  X 


D42E 
D431 
D433 
D434 
D436 
D439 
D43C 
D43F 


D442 
DAS 
D4u7 
DA4A 
DHUR 
D4uC 
DAUF 


D452 
D4S4 
D457 
D459 
DASA 
DASB 
D45C 
DASD 
D460 
D463 


D466 
D467 


03 
65 
CDB3D7 
EB 
DT 
DCDFDB 
DT 
DCOCD/ 
DA2FD/ 
C9 


CD/3CD 
0600 
B7 
2806 
CDC2CD 
CDC/CD 
CDAGDA 
CDTACE 


CDDODB 
3E0C 
CD/2D4 
65 

ES 
CD83D6 
CD98D6 


301À 
CDDFD9 
38F6 
de 

C5 

7C 

BD 
CaCuDB 
CCE9CA 
CDC8DB 


2D 
2001 


INC 
PUSH 
CALL 
EX 
POP 
CALL 
POP 
CALL 
JP 
RET 


IDIR 
CALL 
LD 
OR 
JR 
CALL 
CALL 
CALL 
CALL 


CALL 
LD 

CALL 
LD 

PUSH 
CALL 
CALL 


JR 
CALL 
JR 
EX 
PUSH 
LD 
CP 
CALL 
CALL 
CALL 


DEC 
JR 


BC 

BC 
OD/B3H 
DE, HL 

DE 

C, ODBDFH 
DE 
C,OD/70CH 
C,OD72FH 


OCD/73H 
B, OCH 

À 
Z,0D43CH 
OCDC2H 
OCDC/H 
ODAA6H 
OCETHH 


ODBDOH 
A, OCH 
0D472H 
H L 

HL 

0D683H 
0D698h 


NC, ODUGEH 
OD9DFH 

C, OD4UFH 
(SP), HL 
BC 

AH 

L 

NZ, ODBCUH 
Z,OCAESH 
ODBC8H 


L 
NZ, ODUGAH 


:32 octets de (hl) dans (de) 


; Sauvegarder pile 


est-ce que des paramètres suivent? 
;=> pas d'autre paramètre 

;un param.est OK, sinon ‘Bad command 
;:b:=longu.chaîfne, hl:=adresse chaîne 
>convertir en nom fichier correct 
header param.disc dans hl, Login 
S'il y a lieu 

;sortir ‘Drive #: user #’ 

; longueur d'un nom fichier avec ‘.' 
;:détermine nb entrées par ligne écran 


; Nb entrées dir & tab affect sur 0 
;chercher nom fichier et déterminer 
affectation 

;=> pas d'autre entrée 

>teste, si entrée porte attribut SYS 
;=> 2ème car, ext, >/f, attribut SYS 
:entrées comptées sur pile 


5h:= entrées/ligne 

;l:=encore entrées à sortir dns ligne 
;=> Sortir trois espaces 

;=> Sortir ‘’CR/LF' 

;Sortir nom de fichier, de pointe sur 
nom de fichier 

sentrées affichées dns ligne actuelle 
;:=> ligne pas encore pleine 


- 11 84 - 


D469 
DAGA 
DUGB 
D46C 


LELLLSLSLSRESLZLLLE: 


DUGE 
DUGF 


LÉALLLELLLLLLLSES: 


D472 
D474 
D475 
D476 
D477 
D47A 
D47B 
D47C 
D47D 
D47F 
D481 
D482 
DU83 
D485 
D486 
D487 
D48g 


LES SÉLRELSLELLLES: 


DA8A 
DA8D 
D490 
D493 
D496 


D49g 
DAGC 
DASF 
D4A1 
DAAU 
DUA7/ 
DUA9 


6C 
C1 
E3 
18E1 


ET 
C3/1D5 


C603 
67 
D5 
ES 
CD69BB 
7 A 
ET 
D 
C604 
2E00 
2C 
94 
30FC 
2D 
CO 
2E01 
C9 


CD/73CD 
CDC2CD 
CDC/CD 
CD8DDA 
CD14CE 


CD83D6 
CD98D6 
306B 
CDB1D4 
CD98D6 
38F8 
C9 


LD 
POP 
EX 
JR 
fin !DIR 
POP 

JP 


L,H 
BC 
(SP), HL 
OD4UFH 


HL 
OD5/71H 


: ligne pleine, nbre sur valeur 
;:de départ 

;entrées comptées dans hl 
;:prochaine entrée 


;: déterminer nbre blocs libres, sortir 


déterminer nombre entrées/ligne pour IDIR et CAT 


ADD 
LD 
PUSH 
PUSH 
CALL 
LD 
POP 
POP 
ADD 
LD 
INC 
SUB 
JR 
DEC 
RET 
LD 
RET 


[ERA 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
JR 
CALL 
CALL 
JR 
RET 


A, 03H 
H, À 

DE 

HL 
OBB69H 
A, D 

HL 

DE 

À, O4H 
L, 00H 
L 

H 

NC, OD48TH 
L 

NZ 
L,OTH 


OCD/3H 
OCDC2H 
OCDC/H 
ODA8DH 
OCETUH 


0D683H 
OD698H 
NC, ODSOCH 
ODABTH 
OD698H 
C,ODAATH 


: longueur entrée plus trois espaces 


; IXT GET WINDON 
:Colonne droite de fenêtre actuelle 


3initialiser compteur entrées/ligne 
;nombre entrées/ligne 
: longueur d'une entrée DIR 


;:nombre entrées DIR/ligne, correction 
Si nombre=0, alors pas de formatage 
;fixer nombre sur 1 


; Sauvegarder pile 

;1 paramètre suit,sinon ‘Bad command’ 
:adresse nom fichier à suppr. dans hl 
;créer nom de fichier pour DOS 
header param.disc dans hl, login 
S'il y a lieu 

;:nbre entrées Dir & tab affect sur 0 
; Cherche nom fichier et déterm.affect 
;=>annonce fichier pas trouvé,interr. 


; Cherche nom fichier et déterm.affect 


EN AS 


LÉLSLLSLLELLLLLLEL, 


DAA A 
DHAD 
DA4BO 


LÉLLÉLSLESLLSLLLESZ) 


D4B 
DUB 
D4B5 


D4B/ 
DABA 
DABB 
DABE 
D4CO 
D4C1 


LÉRESL ESS LLESS SE) 


D4C& 
DAC7 
D4CA 
DACD 
D4DO 
DAD1 
DADA 
DAD/ 
DUD8 
DAD9 
DHDA 
DADD 
D4E 0 
DA 
DE 2 
DHES 
DAEG 
D4E 7 
DAE8 
DHE9 
DHEC 
DUEF 
D4F1 
D4F4 


CDB1D4 
D2B8CD 
C9 


CDDSD9 
à 
3EOA 


D2CADB 
AF 
CD3CD8 
SES 
12 
C3/AD9 


CD73CD 
CDC1CD 
CDC7CD 
CD5BDA 
C5 
CDC7CD 
CD60DA 
E 

OA 

BE 
C2AFCD 
CD14CE 
23 

ES 
CD44D6 
E1 

C5 

ul 

LD 
CD83D6 
CD98D6 
301B 
CDD9D9 
DA8DD3 


CALL 
JP 
RET 


CALL 
CCF 
LD 


JP 
XOR 
CALL 
LD 
LD 
JP 


TREN 
CALL 
CALL 
CALL 
CALL 
PUSH 
CALL 
CALL 
POP 
LD 
CP 
JP 
CALL 
INC 
PUSH 
CALL 
POP 
PUSH 
LD 
LD 
CALL 
CALL 
JR 
CALL 
JP 


ODABTH 
NC, OCDB8H 


OD9DSH 


A, OAH 


NC, ODBCAH 
À 

0OD83CH 

À, OESH 
(DE), A 
OD9/AH 


OCD/73H 
OCDCTH 
OCDC/H 
ODASBH 
BC 
OCDC/H 
ODAG6OH 
HL 

A, (BC) 
(HL) 

NZ, OCDAFH 
OCETUH 
HL 

HL 
OD64UH 
HL 

BC 

B,H 

GAL 
0OD683H 
OD698H 
NC, ODSOCH 
OD9DSH 
C,0D38DH 


;teste, si fichier READ ONLY 


;:message système ‘’”’nom fichier” is 
read only’ 
;=> Sortir message, interruption 


>; libérer blocs dans table affectation 
entrer marque fichier supprimé 
: dans nom de fichier 


; Sauvegarder pile 

;:2 param.suivent, sinon interruption 
;spremier param,., nouveau nom, dans hl 
;:organise nom de fichier pour DOS 


; Second param,.,ancien nom, dans hl 
;:organise nom de fichier pour DOS 


;Sortir Bad command, interr, instr. 
header param.disc dans hl, login 
S'il y a lieu 


;teste, si nouveau nom fichier existe 
; déja 


;:nbre entrées Dir & tab affect sur 0 
;cherche nom fichier, déterm.affect. 
;=> fichier pas trouvé 

;steste, si fichier READ ONLY 
;=>fichier READ ONLY, pas changer nom 


Lt #0 


D4F 7 
D4F8 
D4F9 
DUF A 
DUFD 
DAFF 
D500 
D501 
D502 
D505 
D508 
D50A 
DS0B 


LÉSÉSSSÉSSSSSSESS: 


DS0C 
DS0D 
DS0E 
D510 


LÉRRSSSSS SSSR S SL: 


D513 
D516 
D517 
D519 
D51C 
DS1F 
D522 


D525 
D528 
D529 
D52A 
D52D 
D530 
D532 
D535 
D537 
D538 
D53B 
D535C 
DS3E 


ÈS 

E5 

Lo 
010C00 
EDBO 
C1 

ET 

Le 
CD/7AD9 
CD98D6 
38E 7 
ET 

C9 


50 

59 
3E06 
C3B1CD 


CD/73CD 
DS 
DDE7 
010008 
CDAFCA 
CD86DA 
CDTÈCE 


CDDODB 
AF 

F5 
CD83D6 
CD98D6 
300€ 
CDDFD9 
38F6 
ES 
CDAADS 
E3 
38EF 
3E11 


EX 
PUSH 
PUSH 
LD 
LDIR 
POP 
POP 
EX 
CALL 
CALL 
JR 
POP 
RET 


fichier 
LD 
LD 
LD 
JP 


CATALOG 
CALL 
PUSH 
POP 

LD 

CALL 
CALL 
CALL 


CALL 
XOR 
PUSH 
CALL 
CALL 
JR 
CALL 
JR 
EX 
CALL 
EX 
JR 
LD 


(SP), HL 
HL 
BC 
BC, O00CH 


BC 

HL 

(SP), HL 
OD97AH 
OD698H 
C,ODHFTH 
HL 


pas trouvé, 


D,B 
E,C 

À, 06H 
OCDB1H 


OCD/3H 
DE 

IX 

BC, O800H 
OCAAFH 
ODA86H 
OCETUH 


ODBDOH 

À 

AF 
0D683H 
0D698H 
NC, ODS3EH 
ODSDFH 
C, OD52DH 
(SP), HL 
ODSAAH 
(SP},HL 
C, OD52DH 
A,11H 


: longueur nouveau nom de fichier 
;remplacer ancien nom de fichier 


> Chercher nom de fichier et 
; déterminer affectation 


interruption 
;:adr., nom fichier pour sortie dans de 


;:Sortir message système 6, file not 
>found, interrompre instruction 


ranger pointeur de pile 
;adresse buffer user 

;: transférer dans ix 

; longueur du buffer user 

;vide buffer user (de) à (de+bc) 


header param.disc dans hl, login 


S'il y a lieu 
;Sortie ‘Drive #: user #' 


;:nbre entrées Dir & tab affect sur 0 
>Cherche nom fichier déterm.affect. 


;:teste, Si fichier porte attribut SYS 
;=> est fichier SYS, ne pas sortir 


;une entrée dans buffer user 


;prochaine entrée, donc encore une 
: longueur d'une entr,.DIR sur moniteur 


Al 87 


D540 
D543 
DSu4 
DS4S 
D547 
D548 
D54g 
DS4B 
DS4C 
DSUE 
DS4F 
D551 
D552 
D553 
D554 
D555 
D558 
D559 
DS5A 
DS5C 
DS5F 
D560 
D561 
D563 
D564 
D565 
D568 
D569 
D56A 
D56B 
D56D 
DS6E 
D56F 
D571 
D574 
D576 
D577 


HER HE DE D JE EE JE HE 


D57A 
D57B 
D57C 


CD/2D4 
D5 

F1 
1E00 
té 

92 
30FC 
82 
2001 
1D 
DDES 
ET 

LB 

42 

ES 
CD/AD5 
D5 

EB 
2600 
CD3ADE 
19 

D1 
10F2 
ET 

D5 
110E00 
19 

Di 

OD 
2804 
7E 

B/ 
20E 2 
CDC2D8 
3E03 
B/ 
C3EBCA 


Er 
B/ 
C8 


CALL 
LD 
POP 
LD 
[NC 
SUB 
JR 
ADD 
JR 
DEC 
PUSH 
POP 
LD 
LD 
PUSH 
CALL 
PUSH 
EX 
LD 
CALL 
ADD 
POP 
DUNZ 
POP 
PUSH 
LD 
ADD 
POP 
DEC 
JR 
LD 
OR 
JR 
CALL 
LD 
OR 
JP 


Sortie d’une entrée 


RST 
OR 
RET 


OD472H 
D, L 

AF 

E, OH 
E 

D 


NC, OD547H 


À, D 


NZ,0DS4FH 


E 

[X 

HL 

CE 
B, D 

HL 
OD57AH 
DE 

DE, HL 
H, O0H 
OD6E3AH 
HL, DE 
DE 
ODS555H 
HL 

DE 


DE , OOCEH 


HL, DE 
DE 
C 


Z,0D571TH 


A, CHL) 
Â 


NZ,0D553H 


OD8C2H 
A,03H 
À 
OCAEBH 


20H 
À 
FA 


> détermine nombre d'entrées/ligne 
>:nombre dans d 


;nombre de lignes 
:buffer user 

; dans hi 

;lignes dans c 
:entrées/ligne dans b 


>:Sortie d’une entrée 


shl:= hi * 14 pour sortie alphab. 
: dans plusieurs colonnes 


set sortir prochaine entrée 


> détermine nombre bIocs occupés 


:Sortir message système 3, xxxK free 


du buffer user 

3RAM LAM, LD A, CHL) de buffer user 
:caractère un 0? 

:alors pas d'entrée et => 


= HEce8re 


DS/D 
DS/E 
D57F 
D580 
D581 
D582 
D585 
D588 
D589 
D58C 
D58F 
D591 
D593 
D595 
D598 
D59B 
D59C 
DS9D 
DSSE 
D59F 
DSAO 
DSA1 
DSA3 
DSA6 
D5A7 
D5SA8 
DSA9 


DE DE DEEE DE EM DE DE D 


DSAA 
DSAB 
DSAC 
DSAE 
D5BO 
D5B1 
D5B2 
D5B3 
D5B5 
D5B6 
D5B9 
DSBB 
DSBD 


ED 

D5 

Go 

78 

BA 
CaC4DB 
CCE9CA 
EB 
CDC8DB 
CDD9D9 
3E2A 
3802 
3E20 
CDSABB 
210C00 
19 

Ÿ4 

oF 

23 

E7 

“T4 
3E02 
CDEBCA 
C1 

DT 

ET 

C9 


C5 
LC 
0600 
DDES 
ET 
E7 
B/ 
2850 
04 
CD23D6 
280F 
3026 
D5 


PUSH 
PUSH 
PUSH 
LD 

CP 

CALL 
CALL 


CALL 
CALL 
LD 
JR 
LD 
CALL 
LD 
ADD 
RST 
LD 
[NC 
RST 
LD 
LD 
CALL 
POP 
POP 
POP 
RET 


PUSH 
LD 
LD 
PUSH 
POP 
RST 
OR 
JR 
[NC 
CALL 
JR 
JR 
PUSH 


HL 

DE 

BC 

A,B 

D 

NZ, ODBCAH 
Z,OCAE9H 
DE, HL 
ODBC8H 
ODSDSH 
À, 2AH 
C,OD595H 
À, 20H 
OBB5AH 
HL, O00CH 
HL, DE 
20H 

E, A 

HL 

20H 

D, À 

A, 02H 
OCAEBH 
BC 

DE 

HL 


BC 

CH 

B, 00H 

IX 

HL 

20H 

À 
Z,0D605H 
B 

0D623H 
Z, ODSCAH 
NC, ODSE 3H 
DE 


; Sauver registres 


sentrées/Iigne 

;égale entrées sorties? 

3Si différent, sortir 3 espaces 
;Sinon sortir ‘CR/LF' 


;:sortir nom de fichier 
;steste, si fichier READ ONLY 
 1#! 

3S1 R/0, sortir ‘*’ 

; 'eSpace’ 

3 IXT OUTPUT 


3RAM LAM, LD A,CHL) de Ram 


3RAM LAM, LD A, CHL) de Ram 


;message système 2, sortir 
; 3 espaces 


sbuffer user 

; dans NI 

3RAM LAM, LD A,CHL) de Ram 
steste si caractère 0 
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DSBE 110E00 LD DE, OOCEH 


D5CT 19 ADD HL, DE 
D5C2 D1 POP DE 

DSC3 78 LD A,B 

D5C4 FE92 CP 92H 

D5SC6 38E9 JR C,OD5B1H 
DSC8 1856 JR 0D620CH 
LÉSLLLLLSLLSLLLISZSS. 

DSCN ES PUSH HL 

D5CB CDF2D8 CALL 0OD8F 2H ;: déterm,nbre blocs occupés du fichier 
DOCE (E3 EX (SP)2HE 
DSCF 110C00 LD DE , OOOCH 
D5SD2 19 ADD HL, DE 
D5SD3 E7 RST 20H 3RAM LAM, LD A,CHL) de Ram 
D5SD4 SF LD E,A 

D5SD5 23 INC HU 

D5D6 E7 RST 20H 3RAM LAM, LD A,CHL) de Ram 
D5D7 57 LD D,A 

D5SD8 2B DEC HL 

DSD9 E3 EX (SP), HL 
DSDA 19 ADD HL, DE 
D5SDB EB EX DE, HL 
DSDC E1 POP HE 

DSDD 73 LD (HL),E 
DSDE 23 INC HL 

D5SDF 72 LD (HL),D 
D5E0:. 37 SCF 

D5ET 183D JR 0D620H 
LÉSSSLSSLSLSSLS: 

D5E3 79 LD A,C 

DSE4 FE92 CP 92H 

D5SE6 2838 JR Z,0D62CH 
DSE8 ES PUSH HE 

D5E9 DS PUSH DE 

DSEA C5 PUSH BC 

DSEB EB EX DE, HL 
DSEC 79 LD A, C 

D5SED 90 SUB B 

DSÉE:. 30 INC Â 

D5SEF 6F LD L, A 


= LI80 = 


D5SFO 
D5F2 
DSF5 
D5F6 
D5F7 
D5F8 
D5F9 
DSFA 
DSFD 
DSFE 
DSFF 
D602 
D603 
D604 


EH ME HE ME NE HE 


D605 
D606 
D607 
D6EOR 
DEOA 
D60B 
D6EOC 
D6OD 
D610 
D613 
D6T4 
D615 
D616 
D619 
D61A 
D61B 
D61C 
D61D 
D61E 
D61F 
D620 
D621 
D622 


LÉRRRRSSSS SSSR SS ES. 


D623 


2600 
CD3AD6 
44 

UD 

19 

2B 

EB 
210E00 
19 

EB 
CDIEB9 
C1 

Di 

El 


OC 

65 

D5 
36FF 
29 

12 

EB 
010B00 
CD1BB9 
EB 

Æ 

EB 
CDF2D8 
EB 

“à 

73 

23 

#: 

C1 

24 

61 

C1 

C9 


LS 


LD 
CALL 
LD 
LD 
ADD 
DEC 
EX 
LD 
ADD 
EX 
CALL 
POP 
POP 
POP 


INC 
PUSH 
PUSH 
LD 
INC 
[NC 
EX 
LD 
CALL 
EX 
EX 
EX 
CALL 
EX 
POP 
LD 
INC 
LD 
POP 
SCF 
LD 
POP 
RET 


PUSH 


H, OOH 
OD6E3AH 
B,H 
CyL 
HL, DE 
HL 
DE,HL 
HL, OO0EH 
HL, DE 
DE, HL 
OB9TEH 
BC 

DE 

HAL 


C 

BC 

DE 

CHL), OFFH 
HL 

DE 

DE, HL 
BC, O00BH 
0B91BH 
DE, HL 
(SP), HL 
DE, HL 
OD8F 2H 
DE, HL 

HL 
CHL),E 
HL 
CHL),D 
BC 


H, C 
BC 


HL 


marque fin dans buffer user 


;de := pointeur d'enregistrement 


; longueur nom de fichier + extension 
;KL LDIR, d'enreg, dans buffer user 
:pointeur d'enregistrement dans hl 

; début d'enregistrement dans hi 

; début d'enregistrement dans de 
;déterm,nbre blocs occupés du fichier 
;:nombre blocs dans de 


:entrer dans buffer user 


RATE 


D624 DS 
D625 C5 
D626 O60B 
D628 13 
D629 23 
D6ZA A 
D62B E6/F 
D62D 4F 
D62E E7 
D62F E6/F 
D651 B9 
D632 2002 
D654 10F2 
D636 C1 
D637 D1 
D638 EI 
D639 C9 


OH D EH 


D63A DS 
D63B 54 
D635C SD 
D65D 29 
D6SE 19 
D63F 29 
D640 19 
D64T 29 
D642 D] 
D643 C9 


LES SSSR LRSS RSR: 


D644  CD83D6 
D647  CD98D6 
DELA 3025 
D64C  3EOS 
DGUE C3B1CD 


HO EH HE 


D651 CD83D6 
D654  CDS8D6 
D657 3018 
D659 ES 


PUSH DE 

PUSH BC 

LD B, OBH 

INC DE 

INC HL 

LD A, (DE) 

AND 7FH 

LD CA 

RST 20H 3; RAM LAM, LD A, CHL) de Ram 

AND 7FH 

CP C 

JR NZ, 0D636H 

DJNZ 0D628H 

POP BC 

POP DE 

POP HL 

RET 

hl:=h1*14 

PUSH DE ; ranger 

LD D,H 

LD EL 

ADD HL,HL shl dernière valeur dans h]l*2 
ADD HL, DE shl dernière valeur dans h1*3 
ADD HL, HL shl dernière valeur dans: h1*6 
ADD HL, DE sh1l dernière valeur dans h1*/ 
ADD HL, HL shl dernière valeur dans h1*14 
POP DE 

RET 

CALL 0D683H ;nbre entrées Dir & tab affect sur 0 
CALL OD698H ;cherche nom fichier et déterm.affect 
JR NC,0D6/1H 

LD À,05H ;sortir message système 5, file 
JP OCDBTH already exists, interrompre instr. 


chercher nom de fichier dans le directory 


CALL 0D683H >:nbre entrées dir et tab affect sur 0 
CALL OD698H >Cherche nom fichier et déterm.affect 
JR NC,OD6/1H ;=> pas trouvé 

PUSH HL >:numéro entrée Dir trouvée 


* LI 972 


D6ESA 
D65D 
D660 
D661 
D664 
D665 
D668 
D669 
D66A 
D66B 
D66E 
D670 
D6/71 
D675 


210900 
CDSFCA 
EB 
CDDFDB 
ET 
FD/E05 
B/ 

37 

CO 
CDA2D6 
38FB 
37 


LD 
CALL 
EX 
CALL 
POP 
LD 
OR 
SCF 
RET 
CALL 
JR 
SCF 


FD3605FF LD 


C9 


RET 


HE, 00OSH 

OCASFH shl=hl+iy, adresse FCN OPENIN 

DE, HE :dans de 

ODBDFH :32 octets,entrée DIR dans FCB OPENIN 
HE :numéro de l'entrée DIR trouvée 

A, C(IY+O5H) fichier actif sur ce Iecteur? 

À 

NZ ;=> fichier est actif 

OD6A2H :lire directory jusqu’à fin, déterm. 
C, OD66BH :nombres fichiers et blocs occupés 


;>Directory lu 
(1Y+05H),0FF;:marquer fichier sur ce lecteur comme 
actif 


FEFRRE cherche nom de fichier dans directory, détermine affectation blocs 


D6/76 
D679 
D67C 
D6/E 
D681 


HE EH EH HE EE JE 


D683 
D684 
D687 
D688 
D6E8B 
D68E 
D68F 
D690 
D691 
D694 
D695 


CD83D6 
CD98D6 
30F3 
CDAADA 
18F6 


L> 
CDIFCS 
C1 
Z\EPFF 
FD/E05 
B/ 
CO 
ES 
CD14D8 
ET 
C3A8D9 


KÉKEHEHEHEEHEE EX 


D698 


D69B 
D69C 
D69F 


CDA2D6 


DO 
CDD8D7 
30F7 


CALL 
CALL 
JR 
CALL 
JR 


PUSH 
CALL 
POP 
LD 
LD 
OR 
RET 
PUSH 
CALL 
POP 
JP 


OD683H :nbre entrées Dir & tab affect sur 0 
OD698H :cherche nom fichier et déterm.affect 
NC, 0D6/1H ; => pas trouvé 

OD4A AH 

0D679H 


déterminer affectation blocs disque 


BC ;:=> nom de fichier 

OCS1FH ;chercher piste O 

BC 

HL, OFFFFH 

À, (IY+O5H) fichier sur ce lecteur actif? 
Â 

NZ ;:=> fichier est ouvert 

HE 

0D814H ;tab affect à O0, occuper blocs Dir 
HL 

ODSA8H 


chercher nom de fichier, affectation blocs + nombre fichiers 


CALL 


RET 
CALL 
JR 


OD6A2H ;compte nombre blocs dans table 
d'affectation, fichiers 

NC ;=> pas d'autre entrée 

0D7D8H >:nom fichier indiqué= entrée Dir? 

NC, OD698H ; => différent, chercher et déterminer 


affectation 


= TS: 


D6A1 


HKKKKKKÉERHEREÉEHEX 


D6A2 
D6A3 
D6AG 
D6A7 
DEA 


D6EAC 
DEAD 
DGAE 
D6BO 
D6B1 
D6B2 
D6B5 
D6B/ 


C9 


23 
FD/E05 
B7 
2011 
CD1CD9 


DO 

1 
ÉÊES 
37 

C8 
CDA8D9 
3EFF 
C33CD8 


RET 


;>trouvé même nom de fichier 


déterminer nombre de fichiers sur disque 


INC 
LD 
OR 
JR 
CALL 


RET 
LD 
GR 
SCF 
RET 
CALL 
LD 
JP 


HL 


;:compteur d'entrées 


A, (IY+O5H) :OPEN actif sur ce lecteur? 


À 


NZ,OD6BAH ;=> Open est actif 


0D91CH 


NC 
A, (DE) 
OESH 


Z 

ODSA8H 
À, OFFH 
OD83CH 


-enregistrement dans buffer, pointeur 
d'enregistrement => entrée Dir 

;=> pas d'autre entrée 

:de pointeur sur entrée Dir 

;:marque fichier supprimé 


3=> Si entrée supprimée 
>Sinon augmenter nombre d'entrées 


> détermine nombre de bIocS occupés 
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ÉNRRRERNNRERRERT “entrée D6A72;: Si Open’'aCtif 


D6BA CDB8D9 CALL OD9B8H teste, si pos, entrée dir ok 
D6BD DO RET NC 
D6BE C31CD9 JP 0D91CH 


RRÉEREHÉS nombre caractères dans le fichier dans hl 


D6C1 212100 LD HL,0021H 
D6C4 19 ADD RLADE 
D6C5 C3FSDB JP ODBF 9H ;:1d hl,(hl) 
LRÉRSLLSRSSLSLSSLZSS: 
D6C8 212300 LD HL, 0023H 
D6CB 19 ADD HL, DE 
D6CC 7E LD A, (HL) 
D6CD B7 OR Â 
D6CE CO RET NZ 
D6CF CDC1D6 CALL OD6C1H 
D6D2 7C LD A,H 
D6ED3 1F RRA 
D6D4 1F RRA 
D6DS 1F RRA 
D6D6 1F RRA 
D6D7 E60F AND OFH 

‘ D6D9 47 LD B, A 
D6EDA 29 ADD HL, HL 
D6DB 7C LD A,H 
D6DC E61F AND 1FH 
D6EDE 4F LD C,A 
D6DF C5 PUSH BC 
D6EO 210F00 LD HL, OOOFH 
D6E3 19 ADD HL, DE 
D6E4 7E LD A, (HL) 
D6ES A8 XOR B 
D6E6  200F JR NZ,OD6F7H 
D6E8 3E04 35 à es À, OUH 
D6EA CDSADA CALL ODAS4H ;masque extension dans accu 
D6ED 2F CPL 
D6EE 47 LD B, À 
D6EF 2B DEC HL 
D6FO 2B DEC HL 
D6F1 7E LD A, CHL) 
D6F2 A9 XUR 6 


dis 


D6F3 
D6F4 
D6F6 
D6F7 
D6F8 
D6F9 


LÉRRÉRÉSSSRSSSSSS) 


D6F A 
D6FD 
D6FE 
D6FF 
D700 
D/01 
D702 
D703 
D704 
D/707 
D70A 
D/0B 


LÉRRRÉSS SSSR SSSS) 


D/0C 
D7OD 
D710 
D711 
D/13 
D714 
D/15 
D/18 
D719 
D71A 
D71C 
D71D 
D71E 
D71F 
D720 
D721 
D/723 
D726 
D727 
D/28 


AO 
2001 
37 
GI 
9F 
69 


210D00 
19 
71 
23 
23 
70 
22 
EB 
011100 
CDAFCA 
EB 
C9 


D5 
CDC1D6 
7C 
E60F 
67 

ES 
211000 
19 

LE 
0600 
2B 

2B 

2B 

66 

68 
301 
CDEBDB 
09 

D1 

13 


AND 
JR 

SCF 
POP 
SBC 
RET 


LD 
ADD 
LD 
INC 
[NC 
LD 
INC 
EX 
LD 
CALL 
EX 
RET 


PUSH 
CALL 
LD 
AND 
LD 
PUSH 
LD 
ADD 
LD 
LD 
DEC 
DEC 
DEC 
LD 
LD 
LD 
CALL 
ADD 
POP 
INC 


B 
NZ,0D6F/H 


BC 
A, À 


HL, OOODH 
HL, DE 
(CHL),C 
HL 

HL 
(HL),B 
HL 

DE, HL 
BC,0011H 
OCAAFH ;vide (de) à (de+bc) 
DE, HL 


DE 
OD6CTH 
A,H 
OFH 
H, A 

HL 

HL, 0010H 
HL, DE 
C, CHL) 
B, 00H 
HL 

HL 

HL 

H, (HL) 
L,B 
A,01H 
ODBEBH 
HL, BC 
DE 

DE 


“= :LT 967 


D/729 
D72C 
D72D 
D/2E 


ROROHCHECHHH EE 


D72F 
D732 
D/734 
D/37 
D/38 
D/39 
D/3B 
D/3E 
D/41 
D/43 
D/46 
D/47 
D/48 
D/49 
D/4C 
D/4D 
D/4F 
D751 
D/752 
D/53 
D754 
D755 
D756 
D/57 
D/58 
D/5B 


HOME EH JE JE 


D/5SD 
D/5F 
D/60 
D/61 
D/62 
D/63 
D/64 
D/765 


CDF3DB 
3F 
D1 
C9 


CDC1D6 
3E03 
CDS4DA 
A5 

UF 
3E02 
CDS4DA 
CDEBDB 
3E06 
CD54DA 
47 

B/ 

/7D 
211100 
19 
280E 
E60/ 
8/ 

85 

6F 

8C 

95 

67 

ES 
CDF9DB 
180B 


E6OF 
85 
6F 
8C 
95 
67 
E5 
6E 


CALL 
CF 
POP 
RET 


CALL 
LD 
CALL 
AND 
LD 
LD 
CALL 
CALL 
LD 
CALL 
LD 
OR 
LD 
LD 
ADD 
JR 
AND 
ADD 
ADD 
LD 
ADC 
SUB 
LD 
PUSH 
CALL 
JR 


AND 
ADD 
LD 
ADC 
SUB 
LD 
PUSH 
LD 


ODBF 3H 


DE 


OD6CTH 
À, 03h 

ODAS4H 
L 

C, À 

À, 02H 

ODAS&H 
ODBEBH 
À, 06H 

ODASUH 
B, À 

À 

AL 


HL,0011H 


HL, DE 


Z,0D75DH 


O/H 


AL 
ODBFSH 
OD/68H 


shl = de? Carry si égal 


>masque bIoc dans accu 


:Shift bloc dans accu 


;3No bloc maxi, octet fort dans accu 


;1d hl,(hl) 


97 


D/66 
D/68 
D/769 
D/6A 
D/6C 
D/76D 
D/6F 
D772 
D/73 
D774 
D776 
D/77 
D/78 
D/79 
D/7A 


LÉSRSSSSSSSSSSTR: 


D/7B 
D/7C 


LÉRÉRRSSSSSRSLLSSS: 


D/7D 
D/80 
D/81 
D/82 
D/83 
D/84 
D785 
D787 
D/88 
D/89 
D78A 
D/8B 


LRRRSLSSSLLSSSSS: 


D/8C 
D/8D 
D/8E 
D/91 
D/92 
D/93 


2600 
/C 
B5 
280F 
F1 
3E02 
CDS4DA 
29 
3D 
20FC 
79 
B5 
6F 
37 
CS 


ET 
C9 


211000 
19 
/E 
34 
B/ 
FO 
3601 
2B 
2B 
2B 
34 
C9 


D5 
D5 
CDBBD/ 
E3 
23 
CDDFDB 


LD 
LD 
OR 
JR 
POP 
LD 
CALL 
ADD 
DEC 
JR 
LD 
OR 
LD 
SCF 
RET 


POP 
RET 


, OOH 
H 


TT > TL 
\ 


Z,0D77BH 

AF 

À, 02H 

ODASGH :Shift bloc dans accu 
HL,HL 

Â 

NZ,0D/72H 

A,C 

É 

L,A 


HL 


déterminer nombre enregistrements dans FCB 


LD 
ADD 
LD 
INC 
OR 
RET 
LD 
DEC 
DEC 
DEC 
INC 
RET 


occuper 
PUSH 
PUSH 
CALL 

EX 

INC 
CALL 


HL,0010H 
HL, DE 

À, CHL) 
(HL) 

À 

P 

(CHL), 01H 
HL 

HL 

HL 

(HL) 


entrée directory libre 


DE 

DE 

0D/BBH ;chercher entrée libre 

(SPL ;adr. entrée sur pile,hl=adr.nom fich 
HL :No lecteur pas nécessaire 

ODBDFH ;sécrire nom fichier et affect bloc 


dans enregistrement 


SL: 


D796 
D/79/ 
D/9A 
D/9B 


LÉSESSSLSLLLSSRS SR: 


D79C 
D79F 
D/AO 
D7A1 
D7A2 
D/A3 
D/A4 
D/A5 
D/A6 


OH EH HE HE EE JE 


D/A7 
D/AA 
D/AB 
D7AC 
D7AD 
D/AE 
D/AF 
D/BO 
D/B1 
D/B2 


HORDE HE CHHE HE HE EH 


D/B3 
D/B6 
D/B9 


HOMME HE HE HE CH CH EH 


D/BB 
D/BE 
D/BF 
D/C2 
D/C4 
D/C7 
D/C8 
D/CA 


ET 
CD/AD9 
D1 
C9 


212100 
19 
AF 
77 
23 
77 
23 
77 
C9 


212100 
19 
34 
CO 
23 
34 
CO 
23 
34 
C9 


CD85D6 
CD98D6 
1811 


21FFFF 
23 
CD1CD9 
3E0/ 
D2B1CD 
TA 
FEES 
20F2 


POP 
CALL 
POP 
RET 


HL 
OD9/7AH >nom de fichier et affectation bI1ocs 
DE : dans enregistrement Dir 


fixer nombre caractères dans le fichier sur 0 


LD 
ADD 
XOR 
LD 
[NC 
LD 
INC 
LD 
RET 


HL,0021H 
HL, DE 

À 

CHL), A 
HL 
(HL), A 
HL 
CHL), À 


augmenter de 1 nombre caractères dans le fichier 


LD 

ADD 
INC 
RET 
INC 
INC 
RET 
INC 
INC 
RET 


CALL 
CALL 
JR 


HL,0021TH 
HL, DE 
(HL) 

NZ 

HL 

(HL) 

NZ 

HL 

CHL) 


0D683H ;:nbre entrées Dir & tab affect sur 0 
0D698H >cherche nom fichier et déterm.affect 
0D7CCH 


chercher entrée directory libre 


LD 
INC 
CALL 
LD 
JP 
LD 
CP 
JR 


HL, OFFFFH 

HL 

0D91CH >teste Si place dans directory 

À,0/H >Sortir mess,sysStème 7,directory full 
NC,OCDB1H  ; interrompre instruction si pas place 
À, (DE) ; (de)= pointeur enreg.dans enreg, Dir 
OE SH zentrée supprimée? 


NZ,OD/BEH  ; => pas libre, entrée suivante 


“1199: 


D/CC 
D/CD 
D/DO 
D/D1 
D/D3 
D/D6 
D/D/ 


OH HE EH DE EH HE 


D/D8 
D/D9 
D/DA 
D/DB 
D/DC 
D/DD 
D/DE 
D/DF 
D/ET 
D/E2 
D/E3 
D/E5 
D/E6 
D/E8 
D/EA 
DEB 

D/EC 
D/EE 
D/F0 
D/F1 
D/F2 
D/F4 
D/F5 
D/F6 
D/F8 
D/FA 
D/FD 
D/FE 
D/FF 
D800 
D801 
D802 
D804 


F5 
FO7EUS 
B/ 
3E09 
CAB8CD 
Fa 

CS 


C5 
D5 
ES 
60 
69 
TA 
AE 
202D 
22 
1É 
060B 
/E 
FE3F 
2806 
TA 
AE 

E6/F 
201E 
23 
13 
10F1 
/E 
3C 
280€ 
3E04 
CDS4DA 
2F 
47 
TA 
AE 
AO 
200À 
23 


PUSH 
LD 
OR 
LD 
JP 
POP 
RET 


cherche 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
XOR 
JR 
[NC 
[NC 
LD 
LD 
CP 
JR 
LD 
XOR 
AND 
JR 
[NC 
INC 
DUNZ 
LD 
[NC 
JR 
LD 
CALL 
CPL 
LD 
LD 
XOR 
AND 
JR 
INC 


ÂF 


A, CFY+O5H) 


Â 

A, OH 

Z, OCDB8H 
AF 


>OPEN actif sur ce lecteur? 


serreur, interrompre instruction 


dans le directory le nom de fichier indiqué en bc 


BC 

DE 

HL 

H, B 

Es C 

A, (DE) 
(HL) 

NZ, OD80EH 
HL 

DE 

B, OBH 

À, CHL) 
3FH 
Z,0D/FOH 
A, (DE) 


(HL) 


7FH 

NZ, OD80EH 
HL 

DE 

OD/ESH 

A, CHL) 

Â 
Z,0D804H 
À, 04H 
ODASUH 


B, A 

À, (DE) 
CHL) 

B 

NZ, OD80EH 
HL 


; (bc) => nom fichier du fichier voulu 
; (de) => pointeur d'enregistrement 


adresse nom fichier indiqué dans hl 

:Premier caractère entrée Dir,No user 
;égal à numéro user indiqué? 

:Si non, alors => 

: longueur nom de fichier + extension 

:joker ’?’ dans nom fichier indiqué? 


;:=> ignorer caractère dans entrée Dir 
;caractère d'entrée Dir 


;:COmParer avec caract, du nom fourni 


;:=> les noms sont différents 

Sinon prochain caract, nom indiqué 
prochain caractère entrée Dir 

;: tester 


:masque extension dans accu 


“1 100 


D805 
D806 
D807 
D808 
D809 
D80A 
D80C 
D80D 
D80E 
D80F 
D810 
D811 
D812 
D813 


HOME MH HE 


D814 
D816 
D819 
D81B 
D8TE 
D81F 
D820 
D822 
D825 
D827 
D828 
D829 
D82A 
D82B 
D82D 
D82F 
D832 
D833 
D835 
D838 
D839 
D83A 
D83B 


LÉRRESS RS SES SES TS: 


D83C 


13 
23 
13 
7E 
18 
2802 
TA 
AE 
ET 
DT 
C] 
CO 
57 
C9 


3E05 
CDASDA 
3E03 
CDEBDB 
23 

EB 
3E0E 
CD3FDA 
3600 
23 

1B 

7A 

B3 
20F8 
3E09 
CDASDA 
EB 
3E0E 
CD3FDA 


45 


23 
72 
cg 


Ee 


INC 
INC 
INC 
LD 

INC 
JR 

LD 

XOR 
POP 
POP 
POP 
RET 
SCF 
RET 


DE 

HL 

DE 

À, CHL) 
À 
Z,OD80EH 
À, (DE) 
CHL) 
HL 

DE 

BC 

NZ 


;sfichier pas trouvé 
;:marque OK 


vide table affectation, inscrit blocs Dir 


LD 
CALL 
LD 
CALL 
INC 
EX 
LD 
CALL 
LD 
INC 
DEC 
LD 
OR 
JR 
LD 
CALL 
EX 
LD 
CALL 
LD 
NC 
LD 
RET 


A, OSH 
ODA4SH 
À, 03H 
ODBEBH 
HL 

DE, HL 
À, OEH 
ODA3FH 
CHL) , 00H 
HL 

DE 

A, D 

E 

NZ, 0D825H 
À, OH 
ODAUSH 
DE, HL 
À, OEH 
ODA3FH 
CHL),E 
HL 
(HL),D 


;numéro bloc maxi dans hl 


>:divise numéro bloc par 8 
>correction, 22 octets pour table 
;d'affectation 


3 (hl)=> début table act.d'affectation 
38 blocs = 1 octet comme marque libre 
;0octet suivant 

;:diminuer nombre 

;les 22 octets tous annulés? 


;=> pas encore tous annulés 


taille en blocs de directory dans hl 


;(hl)=> début table act.d'affectation 
inscrire blocs Dir comme occupés 


occupe blocs de cette entrée dans table d'affectation 


PUSH 


HL 


nombre entrées Dir testées 


+ A TÔT 


D83D 
D83E 
D83F 
D840 
D843 
D844 
D846 
D847 
D848 
D&4A 
D84D 
D84E 
D850 
D851 
D852 
D853 
D854 
D855 
D85/ 
D858 
D85A 
D85D 
D85E 
D85F 
D860 
D861 
D864 
D865 
D86/ 
D868 
D869 
D86A 
D86B 


LÉRRÉRSSSRSSSSSRÉRSS: 


D86C 
D86D 
D86E 
D86F 
D870 
D872 
D875 


D5 
C5 

UF 
211000 
19 
0610 
SE 

23 
3E06 
CDS4DA 
B7 
2803 
05 

7E 

23 

57 

B3 
280E 
ES 
3E05 
CD4SDA 
7D 

93 

7C 

9A 
D46CDS 
ET 
10DF 
C1 

D1 

El 

37 

C9 


ÈS 

D5 

D5 

EB 
3E03 
CDEBDB 
EB 


PUSH 
PUSH 
LD 
LD 
ADD 
LD 
LD 
INC 
LD 
CALL 
OR 
JR 
DEC 
LD 
[NC 
LD 
OR 
JR 
PUSH 
LD 
CALL 
LD 
SUB 
LD 
SBC 
CALL 
POP 
DUNZ 
POP 
POP 
POP 
SCF 
RET 


DE 

BC 

CA 
HL,0010H 
HL, DE 

B, 10H 

E, CHL) 
HL 

À, 06H 
ODAS4H 

À 
Z,0D853H 
B 

A, CHL) 
HL 

D,A 

E 
Z,0D865H 
HL 

A, OSH 
ODAUSH 
AL 

E 

LH 

A, D 


NC, OD86CH 


HL 
0D846H 
BC 
DE 
HL 


;:pointeur sur début entrée dns enreg, 


;: décalage par rapport affectat. biocs 
;:nombre d'entrées d'affectation par 


zentrée Dir 


3No bloc maxi, octet fort dans accu 
3:Si O0 alors entrées sur 1 octet 
;=> entrées sur un octet 


;pas d'autres blocs occupés 


;numéro bloc maxi dans hl 


;numéro bloc valable? 


;valable=> occuper/libérer 
;: dans table d'affectation 


occuper/libérer No bloc dans position bit table d'affect. 


PUSH 
PUSH 
PUSH 
EX 
LD 
CALL 
EX 


BC 
DE 
DE 
DE, HL 
A, 03H 
ODBEBH 
DE, HL 


;numéro bloc occupé. 


>:diviser No bloc par 8 
résultat dns de,octet dns tab affect 


0 LS 


D8/76 
D8/8 
D8/B 
D8/C 
D8/D 
D8/E 
D880 
D881 
D883 
D884 
D885 
D886 
D888 
D889 
D88A 
D88B 
D88C 
D88D 
D88E 
D88F 
D890 
D891 
D892 


CRÉES LLLLLLLEZSL) 


D893 
D894 
D895 
D89/ 
D89A 
D89B 
D89D 
D8A0 
D8A3 
D8Au 


D8A5. 


D8A/ 
D8A8 
D8A9 
D8AA 
D8AB 
D8AD 


3E0E 
CD3FDA 
19 
D1 
7B 
E607 
SF 
3€ 01 
1C 
OF 
1D 
20FC 
47 
A] 
UE 
78 
2F 
A6 
B1 
77 
D1 
C1 
C9 


C5 

D5 
3E05 
CDASDA 
EB 
3E0E 
CD3FDA 
018008 
/E 

A1 
2800 
OF 

UF 

7 À 

B3 
2812 
1B 


LD 
CALL 
ADD 
POP 
LD 
AND 
LD 
LD 
INC 
RRCA 
DEC 
JR 
LD 
AND 
LD 
LD 
CPL 
AND 
OR 
LD 
POP 
POP 
RET 


Cherche 
PUSH 
PUSH 
LD 
CALL 
EX 
LD 
CALL 
LD 
LD 
AND 
JR 
RRCA 
LD 
LD 
OR 
JR 
DEC 


À, OEH 
ODA3FH 
HL, DE 
DE 

AE 
0/H 
E,A 
A,OTH 
É 


É 

NZ, 0D884H 
B,A 

C 
C, A 
À, B 
CHL) 

ê 
(HL), A 


DE 
BC 


3; (hl)=> début table affectation act. 
:Sauter nombre d’octets nécessaire 
;:numéro de bloc occupé dans de 


; déterminer position bit dans table 
:d'affectation 


;ORer modèle bits act. avec bit bloc 
;et Sauvegarder dans table d'affect. 


bloc libre dans table d'affectation 


BC 

DE 

A, 05H 
ODA4SH 
DE, HL 

À, OEH 
ODA3FH 
BC, 0880H 
A, CHL) 

C 

Z, 0D8B3H 


/ 


À 
,D 


mm > 


Z,OD8BFH 
DE 


;numéro bloc maxi dans hl 


; (hi)=> début act. table d'affect. 
3D:= compteur de bits, c:=modèle bits 
sentrée de table affect, dans accu 
modèle bits pour bloc 

3=> trouvé bloc libre 

:tester bit suivant 


:de:= nombre blocs encore à tester 
:plus d'autres blocs? 

3=> trouvé aucun bloc libre,Disc Full 
;diminuer nombre blocs à tester 


=. LL 105: 


D8AE 
D8B0 
D8B1 


10F3 
23 
18ED 


DUNZ 
INC 
JR 


OD8A3H 
HL 
OD8ACOH 


boucle bits sur 8 bits 
>prochain octet dans table d'affect. 
continuer à tester 


* détermine No bloc d’après position bit, occupe dans table d'affectation 


D8B3 
D8B4 
D8B5 
D8B6 
D8B8 
D8BB 
D8BC 
D8BE 
D8BF 
D8CO 
D8C1 


ELLE, 


D8C2 
D8C3 
D8C4 
D8C/ 
D8C8 
D8C A 
D8CD 
D8CE 
D8DO 
D8D3 
D8D6 
D8D/ 
D8D8 
D8DA 
D8DB 
D8DC 
D8DD 
D8DE 
D8DF 
D8&E 0 
D8&E 1 
D8E 2 
D& 4 
D&ES 


/E 
B1 
17 
3E05 
CDUSDA 
B/ 
ED52 
37 
D1 
1 
C9 


LD 
OR 
LD 
LD 
CALL 
OR 
SBC 
SCF 
POP 
POP 
RET 


À, CHL) 
C 
(HL),A 
À, 05H 
ODAUSH 
À 

HL, DE 


DE 
BC 


smodèle bits de tab affect dans accu 
;:0ccuper bloc libre trouvé 
set placer dans table d'affectation 


:numéro de bloc maxi dans hl 


:calculer numéro de bloc, dans hl 
:marque que trouvé bloc libre 


nombre bloc occupés de table d'affectation pour affichage directory 


C5 

ES 
210000 
ES 
3605 
CD4SDA 
EB 
3E0E 
CD3FDA 
018008 
7E 

AI 
2003 
E3 

23 

E3 

79 

OF 

UE 

7A 

B3 
2806 
1B 
10EF 


PUSH 
PUSH 
LD 
PUSH 
LD 
CALL 
EX 
LD 
CALL 
LD 
LD 
AND 
JR 
EX 
INC 
EX 
LD 
RRCA 
LD 
LD 
OR 
JR 
DEC 
DUNZ 


BC 

HL 

HL, 0000H 
HL 

A,05H 
ODA4SH 
DE, HL 

À, O0EH 
ODA3FH 
BC,0880H 
A, CHL) 

C 

NZ, OD8DDH 
(SP), HL 
HL 

CSP), RL 
A, C 


4 


A 
,D 


Mm > 


Z,O0D8E AH 
DE 
OD8D6H 


shl est compteur de bIocs 
; Sur pile 


>numéro de bloc maxi dans hl 
;:et dans de 


;(h1) => début actuelle ALV 
;b:=compteur de bits, c:= modèle bits 
;soctet de tab d'affect. dans accu 
;position de bit marquée occupée? 

;=> pas OCCUPÉ 

;:compteur dans hl 

augmenter compteur et 

;de nouveau sur la pile 

modèle bits dans accu 

;amener modèle bits suivant par rotat 
;et ranger à nouveau dans c 

:de:= nombre blocs encore à tester 
;nombre déjà nul? 

;=> plus d'autre bloc à tester 

> diminuer nombre de blocs à tester 
boucle de bits 


ni 


D8E7 
D8E8 


LÉLESSSSÉRS SSL EE) 


D8&E À 
D8EB 
D8EE 
D8EF 
D8F0 
D8F1 


LÉLÉELLLSSISILLSSS. 


D8F2 
D8F3 
D8F6 
D8F7 
D8FA 
D8FC 
D8FF 
D900 
D901 
D902 


D904 
D905 
D906 
D907 
D908 
D90A 
D90B 
D9g0C 
D90E 
D90F 
D910 
D912 
D915 
D916 
D91/7 
D918 
D919 
D91 A 


25 
189 


ET 
CD10D9 
EB 
ET 
C1 
C9 


DS 
211000 
19 
110010 
3E06 
CD54DA 
B7 

/E 

23 
2803 


B6 
15 
23 
B/ 
2801 
1C 
15 
20EC 
EB 
D1 
3E02 
CD54DA 
3D 
3D 
3D 
C8 
29 
18FB 


INC 
JR 


HL 
OD8D3H 


:prochain octet de table d’affect. 
:et continuer à tester 


détermine nombre effectif blocs occupés 


POP 
CALL 
EX 
POP 
POP 
RET 


détermine nombre de 


PUSH 
LD 
ADD 
LD 
LD 
CALL 
OR 
LD 
INC 
JR 


OR 
DEC 
[NC 
OR 
JR 
INC 
DEC 
JR 
EX 
POP 
LD 
CALL 
DEC 
DEC 
DEC 
RET 
ADD 
JR 


HL 
0D910H 
DE, HL 
HL 
BC 


DE 

HL, 0071 OH 
HL, DE 
DE, 1000H 
À, O6H 
ODAS4H 

À 

A, (HL) 
HL 

Z, OD907H 


(HL) 

D 

HL 

À 
Z,0D9OBH 
E 

D 

NZ, OD8F AH 
DE,HL 

DE 

À, 02H 
ODASHH 

À 

À 

À 

Z 

HL, HL 
0D917H 


retire comptr blocs occupés de pile 
:déterm.affectat.effect.avec BSH 8 hl 
>résultat dans de 


blocs occupés par le fichier 
: début d'une entrée Dir dns enreg Dir 
:entrer décal.par rapport affect bloc 


:d:= octets table d'affectation 

;e:= compteur bÎIocs occupés 

;:No bloc maxi, octet fort dans accu 
;Si 0,que valeurs 1 oct.ds tab affect 
sun octet de table d'affectation 
augmenter pointeur dans table affect 
;octet fort No bloc maxi=0?, alors ne 
tester qu’un octet 

;Sinon tester octet faible 


tester octet table affect. si 0 
;aucun bloc occupé 

;augmenter compteur bIocs occupés 
:diminuer nombre 

sencore octets dans la table? 
>:nombre dans hl 


:Shift bloc dans accu 


— HET 


HE M EH EE 


D91C 
D91D 
D91E 
D91F 
D921 
D923 
D924 
D926 
D929 
D92C 
D92D 
D92E 
D930 
D933 
D934 
D935 
D937 
D93A 
D93D 
D93E 


LÉRÉRSESL LS LSSL) 


D940 
D941 
D943 
Dg4u 
D945 


ES 

C5 

7D 
E603 
2011 
EB 
3E07 
CDASDA 
CDF3DB 
3F 

EB 
3015 
CD48D9 
AF 

47 
3E08 
CD3FDA 
112000 
04 
1801 


19 
10FD 
EB 
4 
C1 


PUSH 
PUSH 


AND 
JR 
EX 
LD 
CALL 
CALL 
CCF 
EX 
JR 
CALL 
XOR 
LD 
LD 
CALL 
LD 
INC 
JR 


ADD 
DUNZ 
EX 
SCF 
POP 


HL 

BC 

A,L 

03H 

NZ, OD934H 
DE,HL 
A,07H 
ODAUSH 
ODBF 3H 


DE, HL 

NC, OD94SH 
0D948H 

À 

B,A 

À, 08h 
ODA3FH 
DE, 0020H 
B 

OD94TH 


HL, DE 
0D940H 
DE, HL 


BC 


;:bC => nom fichier temporaire 
>nombre entrées testées ds l’enreg. 
:4 sont possibles, 0-3 


>:nombre entrées dans de 


entrées Dir maxi dans hi] 
shl = de? testé toutes les entrées 
>:possibles 


; toutes lues => 
;nouvel enreg. dans buffer enreg,. 


;:(hl)=>buffer enreg,,à nouv sur début 
;: longueur d'une entrée dans le buffer 
: (32 octets) 


;spointeur d'enregistrement sur 
:prochain début Dir 
;spointeur d'enregistrement dans de 


=. 111067 


D946 E1 
Dgu7 C9 


HER EEE HE EH HE HE EH 


D948 
D94A 
D94D 
D9UE 
D950 
D953 
D956 
D958 
D95B 
D95C 
D95F 
D960 
D961 
D963 
D966 
D967 
DAGA 
D96B 
DSC 
D96D 
D96E 
DJ6F 
D970 
D973 
D974 
D975 
D978 
D979 


HE EEE HE He EH EE 


D97A 
D97B 
D97C 
D97E 
D981 
D982 
D984 
D98/ 


3E02 
CDEBDB 
EB 
3E08 
CD3FDA 
CDE8D9 
3EO0B 
CDASDA 
EB 
CDF3DB 
EB 

DO 
3EOC 
CD3FDA 
19 
CDC8D9 
BE 

C8 

rs 

EB 

29 

29 
CDB8D9 
EB 

D1 
DA33D2 
12 

C9 


ES 

ee 
3E02 
CDEBDB 
EB 
3E08 
CD3FDA 
0EO1 


POP 
RET 


LD 
CALL 
EX 
LD 
CALL 
CALL 
LD 
CALL 
EX 
CALL 
EX 
RET 
LD 
CALL 
ADD 
CALL 
CP 
RET 
PUSH 
EX 
ADD 
ADD 
CALL 
EX 
POP 
JP 
LD 
RET 


PUSH 
PUSH 
LD 
CALL 
EX 
LD 
CALL 
LD 


AL 


À, 02H 
ODBEBH 
DE, HL 
À, 08H 
ODA3FH 
ODSE 8H 
À, OBH 
ODAUSH 
DE, HL 
ODBF 3H 
DE, HL 
NC 

A, OCH 
ODASFH 
HL, DE 
OD9C8H 
(HL) 

/ 

AF 

DE, HL 
HL, HL 
HL, HL 
OD9B8H 
DE, HL 
DE 
C,0D233H 
CHL),D 


HL 

BC 

À, 02H 
ODBEBH 
DE, HL 
À, 08H 
ODA3FH 
C,01H 


>:nombre d'entrées testées/4 
;résultat nbre enreg. testés dans de 


3(h1l) => numéro d'enregistrement 
:amène enr., No ds hl, ds buffer enr. 


;nbre entrées DIR à tester dans hl 
shl=de, testé toutes entrés possibles? 
;=> Iu toutes les entrées 

> (h1) => bloc valeur de contrôle 
;calcul valeur contrôle sur l'enreg. 


égale valeur contrôle sauvegardée? 
;=> Sont égales 


; erreur 


>:numéro de l'entrée Dir occupée 
adresse buffer 


;sdivise hl/4 
résultat No enregistrement dans de 


:(h1) => buffer d'enregistrement 


+ 6 i0P 


D989 
D98C 
D98E 
D991 
D992 
D995 
D996 
D998 
D9SA 
D99D 
D9SE 
D9A1 
D9A2 
D9A3 
D9AU 
DSA8 
DAS 
D9A A 
D9JAB 
DAC 
D9AE 
D9B1 
D9B2 
D9B3 
D9B4 
D9B5 
D9B6 
D9B7 


He EH EE EH JE D HE JE HE 


D9B8 
D9B9 
DJBA 
D9BC 
D9BF 
D9CO 
D9C1 
D9C2 
D9C3 
D9C6 
DaC/ 


CDF3D9 
3E0B 
CDASDA 
EB 
CDF3DB 
EB 
300 
3EO0C 
CD3FDA 
19 
CDC8D9 
ré 

C1 

I 
CDB8D9 
D5 

ES 

EB 

15 
3E02 
CD3SDA 
73 

2 

72 

ET 

D1 

S7 

C9 


D5 

ES 
3E02 
CD35DA 
5É 

23 

56 

ET 
CDF3DB 
DT 

C9 


CALL 
LD 
CALL 
Ex 
CALL 
EX 
JR 
LD 
CALL 
ADD 
CALL 
LD 
POP 
POP 
CALL 
PUSH 
PUSH 
EX 
INC 
LD 
CALL 
LD 
INC 
LD 
POP 
POP 
SCF 
RET 


OD9F 3H 
À, OBH 
ODAUSH 
DE, HL 
ODBF 3H 
DE, HL 


NC, OD9A2H 


À, OCH 
ODA3FH 
HL, DE 
OD9C8H 
CHL), A 
BC 

HL 
OD9B8h 
DE 

HL 

DE, HL 
DE 

À, O2H 
ODA3SH 
CHL),E 
HL 
CHL),D 
AL 

DE 


enregistrement Dir dans buffer 
>Secteur, sur disque S'il y a lieu 
;:nombre enreg. Dir à tester dans Nl 


shl=de? testé tous enreg, possibles? 


;(h1) => buffer valeur de contrôle 


;valeur de contrôle sur l'enreg, 
:et entrer dans buffer valeur contr, 


teste si nom de fichier est en 
>position correcte 


augmenter nombre entrées occupées 


3(hl) => nombre entrées Directory 
;ranger nouveau nombre 


teste, si position de l'entrée Dir est ok 


PUSH 
PUSH 
LD 
CALL 
LD 
INC 
LD 
POP 
CALL 
POP 
RET 


DE 
HL 
À, O2H 
ODA35H 
E, CHL) 
HL 
D, (HL) 
HL 
ODBF 3H 
DE 


;nombre entrées Dir 


; (h1)=> nombre entrées Dir occupées 
;:nombre dans de 


shl = de, entrée calculée ok? 


= I AUS 


FÉRRRARERAXEX valeur de contrôle sur l'enregistrement, résultat dans accu 


D9C8 
DgCcg 
D9CA 
DACC 
D9CE 
D9D 
D9D2 
D9D3 
D9D4 
D9D6 
D9D/ 
D9D& 


C5 
ES 
0680 
3E08 
CD3FDA 
AF 
86 
25 
10FC 
E1 
C1 
C9 


PUSH 
PUSH 
LD 
LD 
CALL 
XOR 
ADD 
INC 
DUNZ 
POP 
POP 
RET 


BC 

HL 

B, 80H 
À, 08H 
ODA3FH 
À 

À, CHL) 
HL 
OD9D2H 
HL 

BC 


:lonueur enregistrement 


3(hI1) => buffer enregistrement 
vider accu 
:Valeur de contrôle sur l'enregistr., 


FRAXEXXX* tester si attribut READ ONLY, bit 7 premier caractère extension 


D9D9 
D9DA 
DJDD 


LRRERÉSSRSSSSLLSS. 


D9DF 
DO 
DE 3 
DE 4 
DSŒÆS 
DSŒÆ6 
DE 7 


HO NEHEHHH H E XE XE E 


DŒÆ 8 
DSE9 
DSE À 
DSEB 
DE 
D9F1 


HORMONE EH EE 6 


D9F3 
D9F4 
D9F5 
D9F6 
D9F7 


E5 
210900 
1804 


ES 
210A00 
19 
7E 
87 
E1 
C9 


C5 

D5 

ES 
CDOGDA 
CDACCS 
180B 


C5 
D5 
ES 
C5 
CDO6DA 


PUSH 
LD 
JR 


HL 


HL, 0009H 


ODSE 3H 


>premier caractère extension 


tester si attribut SYS, bit 7 second caractère extension 


PUSH 
LD 
ADD 
LD 
ADD 
POP 
RET 


HL 


HL,OO0AH 


HL, DE 
A, CHL) 
À, À 
HL 


;Second caractère extension 


;caractère dans accu 
; Carry mis, Si attribut mis 


amener enregistrement, No dans de, dans buffer enregistr. 


PUSH 
PUSH 
PUSH 
CALL 
CALL 
JR 


BC 
DE 
HL 
ODAO6H 
OC5SACH 
OD9SFEH 


:déterm.piste et secteur avec No enr. 
:lire enregistrement dans buffer enr. 
:message d'erreur dans accu 


écrire enregistrement, No dans de, dans buffer secteur 


PUSH 
PUSH 
PUSH 
PUSH 


CALL 


BC 
DE 
HE 
BC 
ODAO6H 


; déterminer piste et Secteur 
:d'après No d'enregistrement 


= LP I08 TE 


D9FA 
D9FB 
D9FE 
D9FF 
DAO2 
DAO3 
DAO4 
DAOS 


LÉLRLSRÉLLLLLSLSSS. 


DAO6 
DAO7/ 
DAO8 
DAO9 
DAOC 
DAOD 
DAOF 
DAT2 
DA13 
DATE 
DAS 
DAT8 
DA19 
DATA 
DATB 
DATC 
DATD 
DATE 
DATF 
DA20 
DA22 
DA23 
DA24 
DA27 
DA28 
DA29 
DA2C 
DA2D 
DA30 
DA31 
DA32 


C1 
CD2ECS 
B/ 
C2B6CD 
ET 
D1 
C1 
Co 


D5 

44 

UD 
CDIACS 
D1 
3EOD 
CD4SDA 
44 

UD 

AF 
CD4SDA 
OB 

03 

78 

95 

5F 

7A 

9€ 

57 
30F7 
19 

ES 
CD24C5 
C1 

AF 
CD3FDA 
EB 
CD5ACS 
UD 

44 
C329C5 


POP 
CALL 
OR 
JP 
POP 
POP 
POP 
RET 


calcule 
PUSH 
LD 
LD 
CALL 
POP 
LD 
CALL 
LD 
LD 
XOR 
CALL 
DEC 
INC 
LD 
SUB 
LD 
LD 
SBC 
LD 
JR 
ADD 
PUSH 
CALL 
POP 
XOR 
CALL 
EX 
CALL 
LD 
LD 
JP 


BC 
OCS52EH 
À 


NZ, OCDB6H 


HL 
DE 
BC 


:écrire enreg. dans buffer secteur 
;:message d'erreur dans accu 
;=> erreur, interrompre instruction 


piste et secteur d’après numéro d'enregistrement 


DE 

B,H 
CL 
OCSTAH 
DE 

A, ODH 
ODA4SH 
B,H 
CL 

À 
ODA4SH 
BC 

BC 

AE 


L 

E, 
À, 
Â 
D 


‘ 


BTOC ZxZ 


‘ 


NC, ODAT 9H 


HL, DE 
HL 
OC524H 
BC 

Â 
ODA3FH 
DE, HL 
OCSSAH 
GE 
B,H 
0C529H 


;numéro d'enregistrement 

adresse buffer pour un enregistremnt 
:dans bc et transmettre 

:aux routines du controller 


>: décalage de piste dans hl 
set bc 


:Nbre enregistr./piste dans hl 
;correction 


>:piste en c dans be54 pour Controller 


;(hl1) => (a910/a920) 


>; traduire numéro d'enregistrement 


;Secteur dans be5s pour Controller 


<ŒL TIC 


ROEREEREEEEE Charge header paramètres disque + accu dans hl 


DA35 
DA38 
DA39 
DA3C 
DA3D 
DASE 


ORCH CHECHÉ HE M EE EE 


DA3F 
DA42 


OH DE HE D DE HE CE JE HE 


DAUS 
DA46 
DAS 
DAUB 
DA4C 
DA4D 
DALE 
DAUF 
DASO 
DAS1 


OH EH D He HE HE EH 


DAS4 
DASS 
DAS8 
DAS59 
DASA 


HOME DE EEE EEE EH 


DASB 
DASE 


HE EH D EE HE HE EE JE 


DA6O 
DA63 
DA6S 
DA68 


FD8603 
6F 
FD8E 04 
95 
67 
CS 


CD3SDA 
C3F9DB 


F2 
3EOA 
CD3FDA 
F1 

85 

6F 

8C 

95 

6/ 
C3F9DB 


ES 
CDASDA 
/D 
ET 
C9 


11E400 
1803 


11F400 
0E20 
CD/4DA 
182B 


ADD A, (IY+03H) ;ajoute octet faible DPH actuel 

LD L,A résultat dans l| 

ADC A, (IY+OUH) ;ajoute octet fort, éventu.avec Carry 
SUB Ë 

LD H, À soctet fort dans h 

RET 


charge contenu (header paramètres disque + accu) dans hl 
CALL ODA3SH ;(h1) => DPH + accu 
JP ODBF 9H s:1d hl,(hl) 


charge contenu (DPB+accu) dans hl 


PUSH AF 

LD À, OAH 

CALL ODA3FH ;(hl) => début bloc paramètres disque 
POP AF ; décalage voulu 

ADD A, L 

LD L, À 

ADC AH calcule adresse nécessaire 

SUB L 

LD H, À 

JP ODBFSH LD AL CAES 


charge contenu (bloc paramètres disque + accu) dans accu 
PUSH HL 


CALL ODA4SH ;>charge contenu (DPB+accu) dans hl 
LD A, L ;0octet voulu dans accu 

POP HL 

RET 

LD DE, OOE 4H 

JR ODA6 3H 

LD DE , OOF 4H 

LD C, 20H 


CALL ODA/4H 
JR ODA9SH 


sc EESTI 


HE EH HE EH EH 


DAGA 
DA6D 


HE HE HO HE HE 


DAGF 
DA71 
DA74 
DA77 
DA78 
DA7 À 
DA7B 
DA/C 
DA/D 
LA7F 
DA81 
DA82 
DA84 
DA85 


HE CH EE HE 


DA86 
DA88 
DA8B 


HE CH HE HCH CH HE 


DA8D 
DA8F 
DA92 
DA9S5 
DA98 
DA99 
DA9B 
DA9C 
DA9D 
DA9F 


He HOH MCE EE 


DAAO 
DAA3 
DAAS 


CD6FDA 
1826 


OEFF 
11E400 
CDAODA 
C5 

1 60B 
03 

03 

OA 
FÉSF 
2869 
15 
20F7 
C1 

C9 


0600 
CDAGDA 
1808 


0E20 
11E 400 
CDAODA 
210D00 
09 
36FF 
25 

23 
36FF 
C9 


CDB6DA 
2845 
C9 


CALL 
JR 


ODAGFH 
ODA9SH 


;scrée EFN, teste nom de fichier 


crée nom fichier étendu, teste si espace ou ‘’?° 


LD 
LD 
CALL 
PUSH 
LD 
[NC 
INC 
LD 
CP 
JR 
DEC 
JR 
POP 
RET 


LD 
CALL 
JR 


LD 
LD 
CALL 
LD 
ADD 
LD 
INC 
INC 
LD 
RET 


C, OFFH 
DE, OOE 4H 
ODAAOH 
BC 

D,0BH 

BC 

BC 

A, (BC) 
3FH 
Z,ODAEAH 
D 
NZ,ODA/BH 
BC 


B, 00H 
ODAAGH 
ODA9ISH 


C, 20H 

DE , OOE 4H 
ODAACH 
HL, OOODH 
HL, BC 
CHL),O0FFH 
HL 

HL 
CHL),OFFH 


> disposer nom de fichier dans buffer 


;: longueur du nom de fichier avec ext, 


3DC => nom de fichier 

>premier caractère du nom dans accu 
>joker ‘?' 

;:Si oui => Sortir Bad command 


;3tesSter si prochain caractère ‘?' 
3; trouvé aucun point d'interrogation 
;Semble ok 


;eSpace 
:adresse buffer enregistrement 
>disposer nom de fichier 


crée nom fichier étendu, teste si nom de fichier ok 


CALL 
JR 
RET 


ODABGH 
Z, ODAEAH 


;crée nom de fichier étendu 
;=>espace ds nom fichier, Bad Command 


HUE TZ = 


HR HOEOEOOEH HOHH H 


DAAG 
DAA8 
DAAB 
DAAE 
DAAF 
DAB] 
DAB4 
DAB5 


LRÉÉSSSSSSSS RSS) 


DAB6 
DAB/ 
DABA 
DABB 
DABE 
DABF 
DACO 
DAC3 
DAC4 
DACS5 
DACE 
DAC/ 
DAC9 
DACC 
DACD 
DACF 
DAD2 
DADS5 
DAD8 
DADS 
DADA 
DADB 
DADC 
DADF 
DAEO 
DAE2 
DAE3 
DAEA 
DAES 
DAEG 
DAE7 


DE 20 
11E400 
CDB6DA 
C5 
OEOB 
CC8EDB 
C1 

C9 


ES 
CD98CA 
DS 
FD/E00 
Le. 

13 
FD/E01 
12 

15 

C5 

41 
0E08 
CD85DB 
78 
0E03 
CD9ODB 
010300 
CDAFCA 
C1 

D1 

El 

D5 
CDEDDA 
D1 
3008 
42 

UB 

13 

13 

TA 
FE20 


LD 
LD 
CALL 
PUSH 
LD 
CALL 
POP 
RET 


PUSH 
CALL 
PUSH 
LD 
LD 
INC 
LD 
LD 
INC 
PUSH 
LD 
LD 
CALL 
LD 
LD 
CALL 
LD 
CALL 
POP 
POP 
POP 
PUSH 
CALL 
POP 
JR 
LD 
LD 
[NC 
INC 


CP 


C, 20H 
DE, OOE4H 
ODAB6H 
BC 

C,OBH 
Z,O0DB8EH 
BC 


HE 


OCA98H 
DE 


À, C(IY+00H) 


(DE), À 
DE 


À, (IY+01H) 


(DE), A 
DE 

BC 

B,C 
C,08H 
ODB85H 
A,B 
C,03H 
ODB90H 
BC, 0003H 
OCAAFH 
BC 

DE 

HE 

DE 
ODAEDH 
DE 

NC, ODAEAH 
B, D 
CE 

DE 

DE 

A, (DE) 
20H 


;eSpace 
; décalage par rapport buffer enreg, 


;de=de+iy, buffer nom fichier étendu 
; ranger 

;:numéro du lecteur actif 

-entrer dans nom fichier 


;numéro user actif 
:entrer dans nom de fichier 


>:nom fichier a 8 caractères de long 
:8 espaces dans (de) à (de+7) 


;:extension a 3 caractères de Iong 

:3 fois ffh dans (de+8h) à (de+0ah) 
;vide (de+0bh) à (de+0Odh) 

:b=> taille nom fichier ent, c=> Offh 
;de => début nom fichier étendu (EFN) 
shl => adr. nom fichier entrée (IFN) 


;scrée EFN, Si IFN correct 


:bad command,nom fich. entrée pas ok 
adresse EFN dans bc 


;:de => nom de fichier 


;premier caractère du EFN 
;:eSpace? 


HET 


DAE9 


LÉRRSLSLLLLLSSSS. 


DAEA 


RSR RSRSSSSSSSS: 


DAED 
DAEE 
DAF1 
DAF2 
DAF3 
DAF4 
DAF5 
DAFE 
DAF& 
DAFA 
DAFD 
DAFF 


HO EE HE EE EH HE 


DBOO 
DBO1 
DB02 
DBO3 
DBO5 
DBO6 
DBO8 
DBOA 
DBOC 
DBOE 
DB10 
DB11 
DB12 
DB15 
DB1/ 
DB19 
DB1B 
DB1D 
DB1E 
DB1F 
DB20 
DB22 


C9 


C3AFCD 


2B 
CD97DB 
3F 

D8 

UF 

E5 

C5 
FE3A 
2806 
CDASDB 
38F7 
37 


C1 
ET 
79 
383E 
13 
FE30 
381F 
FE3A 
301B 
D630 
LE 
12 
CDASDB 
FE30 
3810 
FE 3A 
300€ 
B7 
OD 
CO 
CEDA 
FET0 


RET 

JP OCDAFH 
teste IFN, crée EFN 
DEC HL 

CALL ODB97H 
CCF 

RET Ê 

LD C,A 

PUSH HL 

PUSH BC 

CP 3AH 

JR Z , ODBOCH 
CALL ODBASH 
JR C, ODAF 6H 
SCF 

SL 

POP BC 

POP HL 

LD A6 

JR C,O0DB43H 
INC DE 

CP 30H 

JR C,0DB29H 
CP 3AH 

JR NC, ODB29H 
SUB 30H 

LD C, À 

LD (DE), A 
CALL ODBASH 
CP 30H 

JR C, ODB2SH 
CP 3AH 

JR NC, ODB2H 
OR À 

DEC C 

RET NZ 

ADD À, ODAH 
CP 10H 


>:Sortir Bad command, interr.instr., 


avec Drive et USER 
; DUMMYy 
tester longueur IFN 


erreur apparue! pas de nom fichier? 


Caractère est Un ‘’:'7 

>oui, alors => 

Un caract, de IFN, convert,.majusc. 
tester Si ‘:' 


> trouvé aucun ‘:’ dans le nom 


tester si numéro USER valable 


; Saut si trouvé aucun ‘’:' 
ÿ"0" 
;caractère < ‘0’, donc pas chiffre 


rs 
4 


;scaractère >= ’:’, pas chiffre 

:est un chiffre,-30h donne nb binaire 
sentrer chiffre dans EFN 

;:un caract, de IFN, convert.majusc. 
> '0' 

;caractère < ‘0’, alors pas chiffre 
caractère >= ‘’:", pas chiffre 
caractère est un chiffre 

>premier chiffre est un 1? 

>:non, erreur en IFN, faux No USER 
;tester Si second chiffre de 0 à & 


= JL TIS 


DB24 
DB25 
DB26 


DO 
12 
CDASDB 


RET NC ; Second chiffre >6, faux No USER 
LD (DE), A -:entrer chiffre dans EFN 
CALL ODBASH Un caractère de IFN, convert.majus, 


FARRAREEXHEXE S] pas Chiffre, tester (logiquement) si No lecteur valable 


DB29 
DB2A 
DB2C 
DB2E 
DB30 
DB32 
DB34 


DB35 


LÉLLLLELLLLSSSS. 


DB38 
DB5B 
DB3D 
DB3E 
DB41 
DB42 


HE HE EH He M JE EE 


DB43 
DB4 4 
DBU5 
DBu7 
DB48 
DBUA 
DBUD 
DBUE 
DB50 
DB51 
DB54 
DB56 


HER CHE HE HE JE JE JE EE JE 


DB58 
DBSA 
DB5C 
DB5SD 


1B 

FÉES] 
300A 
FEU] 
3806 
D641 
12 


CDASDB 


CDSBDB 
EE3A 
CO 
CD9/7DB 
3F 

D8 


13 

13 
FÈZE 
C8 
0E08 
CD58DB 
D8 
LEVÉ 
CO 
CD9/DB 
0E03 
302D 


FE20 
3829 
ES 
Ca 


DEC DE 

CP 51H 20” 

JR NC, ODB38H  ;Caract, est ‘Q’,'R'.,., erreur ds IFN 

CP 41H PE : 

JR C,ODB38H ; Caractère < ’A', erreur dans IFN 

SUB 41H :Ôter ‘A’, donne 0 à 15 

LD (DE),A :ce sont les lecteurs possibles 
(logiquement ) 

CALL ODBASH ;un caractère de IFN, convert.majusc. 


Si USER et/ou Drive, alors ‘’:’ doit suivre, sinon erreur 


CALL ODB9BH sretirer caractère, ignorer espace 
XOR 3AH ;>maintenant doit venir un ‘:' 

RET NZ ;Si non, alors erreur dans IFN 
CALL 0ODB97H sretirer caractère, ignorer espace 
CCF 

RET C ;serreur, pas de caractère après ‘:' 


détermine nom fichier effectif et extension d'après IFN 
INC DE 


INC DE 

CP 2EH DR 

RET Z ;snom de fichier manque, entré qu'ext. 
LD C, 08H ; longueur nom de fichier étendu (EFN) 
CALL ODB58H 

RET (é 

XOR 2EH maintenant doit venir un ’.' 

RET NZ serreur, IFN trop long 

CALL ODB97H sretirer caractère, ignorer espace 

LD C, 03H >: longueur de l'extension 

JR NC, ODB85H  ;plus de caract.,alors ext.=3 espaces 


teste caractère pour nom fichier et ext., entre dans EFN 
CP 20H DU 

JR C, ODB85H >Si pas d’'espace,remplir avec espaces 
PUSH HL 

PUSH BC 


ACTE 


DB5E 
DB5F 
DB62 
DB63 
DB64 
DB65 
DB67 
DB68 
DB6A 
DB6B 
DB6C 
DB6D 
DB6E 
DB/70 
DB71 
DB72 
DB74 
DB77 
DB79 
DB7C 


DB/E 
DB80 


47 
21B2DB 
FÉ 

23 

B/ 
2804 
B8 
20F8 
37 

78 

C1 

ET 
3815 
OD 

F8 
FEZA 
CC8EDB 
12 
CDASDB 
3007 


FE20 
20D6 


JE EE EE EE JE ME EH HE EH 


DB82 


CD9BDB 


LÉRRRSSRSRSLLSSE SR) 


DB85 
DB86 
DB88 
DB3B 
DB8C 
DB8D 


F5 

3E 20 
CD9ODB 
F1 

3F 

C9 


JE HE EEE HE JE HE HE EE 


DB8E 


ESF 


JE EEE HE HE HE HE HE 


DB90 
DB91 
DB92 


OC 
OD 
C8 


LD B, A ; Sauvegarde provisoire 

LD HL,ODBB2H  ;table des caractères ’interdits’ 

LD A, (HL) retirer valeur de table 

INC HL >augmenter pointeur 

OR Â 

JR Z,0DB6BH stable terminée? 

CP B >comparer valeur table avec caract. 

JR NZ,ODB62H ;si différent, comparer suivante 

SCF marque caractère ‘interdit’ 

LD À,B caractère dans accu 

POP BC 

POP HL 

JR C, ODB85H ;scaract.’interdit’,reste avec espaces 

DEC Ê ;compteur longueur nom où extension 

RET M ;tous caractères parcourus? alors => 

CP 2AH ;3'*", Joker pour le reste 

CALL Z,0DB8EH :Si joker alors remplir reste de ‘?' 

LD (DE), A >:caractère ok. Entrer dns nom fichier 

CALL ODBASH >:caract.de nom fichier,convert.ma]Jus. 

JR NC, ODB85H  ;:plus de caractère, remplir reste 
avec espaces 

CP 20H ;caractère espace? 

JR NZ,ODB58&H  ;si non, alors tester et entrer 


jeter rester dans IFN après espace 


CALL 


ODB9BH 


teste Si. Space, Si OU1: Car .SUIVant 


remplit mémoire (de) à (de+c) avec caractère espace 


PUSH AF 

LD A, 20H ;valeur pour caractère espace 
CALL 0DB90H 

POP AF 

CCF 

RET 


remplit mémoire (de) à (de+c) avec ‘?' 
LD À, 3FH ;'?!, joker pour un caractère 


remplit mémoire (de) à (de+c) avec caractère dans accu 


[NC C ;correction nécessaire 
DEC C ;case mémoire suivante 
RET Z ;ou éventuellement c=0, alors fin 


+ EE 


DB93 12 LD (DE),AÀ ;caractère dans mémoire adressée 
DB94 13 INC DE augmenter pointeur 
DB95 18FA JR ODB91H ;:et encore une fois 


POOORREREEEX rotire Un caractère, teste si longueur nom de fichier > 0 
DB97  CDASDB CALL ODBASH ;un caractère, teste longueur nom 
DB9A DO RET NC ; longueur 0, erreur! 


#**# teste Si accu est espace, si espace, alors retirer prochain caractère 


DB9B FE20 CP 20H ; espace? 

DB9D 37 SCF 

DBSÆE CO RET NZ sc'était quelque chose d'autre 
DB9F ‘ CDASDB CALL ODBASH >retirer prochain caractère 
DBA2 38F7 JR C, ODB9SBH ;steste Si espace, Si oui, 

DBA4 C9 RET prochain caractère 


Femme retire un caractère du nom de fichier et convertit en majuscules 


DBAS 78 LD À,B > longueur nom fichier (restante) 
DBA6 B7 OR À > longueur <> 07? 

DBA7 C8 RET 1 ;Si 0, alors Return 

DBA8 23 INC HL > (h1l) => pointeur sur nom de fichier 
DBA9 O5 DEC B d'entrée 

DBAA E7 RST 20H >RAM LAM, LD A,CHL) de Ram 

DBAB E6/F AND 7FH ;que caractère ASCII, S.V.P 

DBAD CDAGCA CALL OCAAGH ;convertir en majuscules 

DBBO 37 SCF marque octet retiré 

DBB1 C9 RET 


RAERÈRREEEERE Caractères interdits dans nom de fichier 


DBB2 3C DEFB 3CH re 

DBB3 3E DEFB 3EH F2" 

DBB4 2E DEFB 2EH n'a 

DBB5 2C DEFB 2CH Er 

DBB6 3B DEFB 3BH RE 

DBB7  3A DEFB 3AH AE 

DBB8& 3D DEFB 3DH ;s "=! 

DBB8 SB DEFB GBH ;crochet ouvert 
DBB8& 5D DEFB DDH ;crochet fermé 
DBB8 5F DEFB DFH ; Soul ignage 
DBB8 25 DEFB 25H VA 4 


DBB8& 7C DEFB 7CH ;Shift arobas 


Ah iZ 


DBBE 28 DEFB 28H at à 


DBBE 29 DEFB 29H RS D 

DBBE 2F DEFB 2FH FA 

DBBE 5C DEFB CH ; Backslash 

DBBE 7F DEFB 7FH ;Delete 

DBBE O0 DEFB OH ;marque fin de la table 


RRRRRREEREEEEEE SONT trOiS espaces, No lecteur actuel dans c 
DBCH 3E01 LD A,01H >message système 1 
DBC6 1802 JR ODBCAH 


FAURERENSELSERS Cort ‘nom de fichier’, No lecteur actuel dans c 


DBC8 3EOB LD À,0BH message système 11 
DBCA C5 PUSH BC 

DBCB FDUEO2 LD C, (IY+02H) ;No lecteur dans c 
DBCE 180A JR ODBDAH 


ERA EEE OT ‘Drive #: user #’, e=lecteur, c= No user 
DBDO C5 PUSH BC 


DBDT OA LD A, (BC) ;snuméro lecteur 

DBD2 SF LD E; A ; dans € 

DBD3 1600 LD D, O0H 

DBDS OB DEC BC 

DBD6 OA LD A, (BC) ;No user 

DBD7 4F LD C,A ;dans c 

DBD8& 3EOC LD A, OCH message système 12 
DBDA CDEBCA CALL OCAEBH ;:Sortir message système 
DBDD C1 POP BC 

DBDE C9 RET 


ses transfère 32 octets avec LDIR de hl dans de 
DBDF ES PUSH HL 


DBEO DS PUSH DE 

DBET C5 PUSH BC 

DBE2 012000 LD BC, 0020H 
DBES  EDBO LDIR 

DBE7 C1 POP BC 

DBE8 D1 POP DE 

DBE9 ET POP HL 


DBEA C9 RET 


sil FIS 


RRRERREEEEEX (jyise hl par (accu”2) 


DBEB CB3C SRL H 

DBED CB1D RR L 

DBEF  3D DEC À 

DBFO 20F9 JR NZ, ODBEBH 
DBF2 C9 RET 


RRRRREEEREEERÉE Compare hl avec de 


DBF3 E5 PUSH HL 
DBF4 B7 OR À 
DBF5 ED52 SBC HL, DE 
DBF7 El POP HL 
DBF8 C9 RET 


FRRERREREEHEAEE charge (h1l) dans hl 


DBF9 D5 PUSH DE 
DBFA 5€ LD E, (HL) 
DBFB 23 INC AL 
DBFC 56 LD D, (HL) 
DBFD EB EX DE, HL 
DBFE D1 POP DE 
DBFF C9 RET 


FOOONONNRRREX (OO à dfff ne sont pas utilisés 
DCOO à  DFFF RST 38H 
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CHAPITRE 5: PROGRAMMES ET ASTUCES POUR LE DPI 


D.1 ERREUR AVEC MERGE ET CHAIN MERGE 


Ce chapitre intéressera tous ceux qui ont été parmi les premiers à 
acheter un lecteur de disquette, Une erreur s’est malheureusement glissée 
dans le système d'exploitation de sorte que lorsqu'on charge un programme 
Supplémentaire avec les instructions MERGE et CHAIN MERGE l'erreur ‘EOF 
met’ survient de façon injustifiée, 

Comme le fabricant a connaissance de cette erreur, celle-ci sera éliminée 
dans les versions ultérieures du système d'exploitation, Ceux d’entre 
vous qui ne savent pas encore Si leur lecteur de disquette comporte ou 
non cette erreur pourront le savoir en étudiant le présent chapitre, 


Comme nous l'avons déjà indiqué et comme vous l'avez peut-être déja 
expérimenté par vous-même, le système d'exploitation AMSDOS comporte une 
erreur, Ne soyez pas trop irrité par ce fait car même les installations 
les plus coûteuses comportent encore d'innombrables erreurs dans leur 
système d'exploitation. 


[1 n’y a pas non plus là de raison de paniquer: votre problème est déjà 
résolu puisque vous avez le présent ouvrage entre les mains. Nous ne vous 
fournissons pas UNE possibilité de solution, mais DEUX. Mais quand et 
pourquoi cette erreur se produit-elle? Peut-être n'avez vous eu jusqu'ici 
aucun problème lors de l'utilisation des instructions MERGE et CHAIN 
MERGE, C'est tout à fait possible, Notamment pour les petites routines, 
il est même assez improbable qu'une erreur se produise, 

Essayez donc notre exemple: 


NEW 


10 PRINT x:"”C'est réussi.” 
20 GOTO 20 


SAVE “Deux” 


NEW 
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10 PRINI “Nous essayons ..." 
20 x=] 
50 CHAIN MERGE “Deux” 


RUN 


Vous pouvez maintenant vous faire LISTer le programme. Tout s'est passé 
comme voulu et attendu, (Voyez également le chapitre correspondant du 
manuel du Basic CPC). 

Entrez maintenant: 


NEW 


26 PRINT x: "C'est réussi.” 
27 END 


SAVE “Deux” 


NEW 


10 PRINT “Nous essayons ...” 
20 x=1 
25 CHAIN MERGE “Deux” 


RUN 


Faites toutefois très attention à bien respecter les numéros de ligne que 
nous vous indiquons car ils sont importants pour notre exemple. 


Après avoir lancé le programme, vous obtiendrez un 
EOF met in 25 


Vous savez que EOF signifie End of File et vous vous demandez 
certainement pourquoi l'ordinateur a rencontré une fin de fichier? C’est 
exactement en cela qu'est l'erreur du Système d'exploitation, Nous avons 
provoqué cette erreur dans notre exemple en utilisant le numéro de ligne 
26, Dès que, lors du chargement d'un second programme, un gia = 26 est 
rencontré, le message d'erreur ‘EOF met’ est sorti. Le code 26 ne peut 
pas se présenter comme caractère ASCII dans un programme, mais il peut 


se EL AT 


par contre être utilisé dans le codage des programmes, 


Lors de la Sauvegarde d'un programme sur disquette est écrite également 
sur disquette pour chaque ligne du programme la longueur ainsi que 
l'adresse de début en mémoire de cette ligne. Cela représente trois 
caractères pour chaque ligne et le risque est grand qu'un de ces trois 
octets vaille &la. D'autre part le numéro de ligne est sauvé sous Ja 
forme d'un nombre entier sur 16 bits, Ce nombre peut également comporter 
un &la, comme dans notre exemple, La probabilité est donc de 
1:(256/5)=51,2 par ligne, ce qui signifie que statistiquement, un ‘EOF 
met” doit survenir au plus tard lorsque le programme dépasse 51 lignes, 
Dans la pratique cependant, un nombre de lignes très inférieur suffit 
souvent. 


Une première solution possible consiste à sauvegarder les programmes à 
charger en second sous la forme de ce qu’on appelle les fichiers ASCII. 
Les programmes ne sont plus alors codés mais sont écrits sur la disquette 
comme à l'écran, caractère par caractère, Les fichiers de programmes 
deviennent ainsi un peu plus longs, un programme d'une taille de 30 
Koctets occupera par exemple 32 Koctets sur la disquette. Dans notre 
exemple, vous auriez donc dû entrer: 


SAVE ‘”’Deux”,a 


Le ‘,a’ est mis pour fichier ASCII, Cette première solution est aussi la 
plus Simple, Si vous avez toutefois des programmes protégés que vous 
voulez charger en second (par exemple), cette solution n'est pas 
utilisable, 


Nous avons donc un petit programme à vous offrir comme deuxième solution. 
Ce programme exécute l'instruction CHAIN MERGE comme elle devrait 
normalement être exécutée, c'est-à-dire comme elle est décrite dans le 
manuel d'utilisation et comme elle fonctionne en Basic cassette, 


’ Firmware Patch for CHAIN-MERGE 
" Amstrad CPC & DDI-1 


OO U1 EE \N ND — 
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10 
20 
30 
40 
50 
60 
70 
80 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


MEMORY HIMEM-41 
DEF FNmsb(a)=8FF AND INT(a/256) 
DEF FNIisb(a)=8FF AND UNT(a) 


FOR i= 


HIMEM+1 TO HIMEM+38 


READ byte 
POKE i,byte 


NEXT 1! 


POKE HIMEM+3, FNISDCHIMEM+39) 
90 POKE HIMEM+4, FNmsb(HIMEM+39) 


POKE 
POKE 
POKE 
POKE 
"CAS 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HIMEM+9, FNISDCHIMEM+41) 
HIMEM+10,FNmsbDCHIMEM+41 ) 
HIMEM+18,FN1ISD(HIMEM+1) 
HIMEM+19,FNmsbCHIMEM+1) 

IN CHAR 

HIMEM+39, PEEK(8&BC80+0) 
HIMEM+40, PEEK(&BC80+1) 
HIMEM+41, PEEK(8&BC80+2) 
&BC80+0, &C3 

&BC80+1, FNISDCHIMEM+1) 
&BC80+2, FNmsb(HIMEM+1) 
&e5,8&2AÀ,800,800,822,880,&bc 
&3a, 800, 800,832, 882, &bc 
8cd, 880, &bc,821,800, &00 
822,881,8bc,821,880,&DcC 
836,8c3,8e1,8d8,8c8,8&fe,gia 
837,83f,8c0,8b7,837,8c9 


Une fois cette routine entrée, sauvez-la sur disquette, Lorsque vous 
aurez ensuite un programme qui utilise l'instruction CHAIN MERGE, vous 
pourrez placer cette routine au début du programme. Une fois la routine 
exécutée, vous pouvez à nouveau effacer les lignes correspondant à cette 
routine avec DELETE (cela est également possible dans un programme). 
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5.2 MESSAGES D'ERREUR 


I] y à en certainement parmi vous que le simple terme de ‘message 
d'erreur’ suffit à plonger dans une colère noire parce qu’ils ne peuvent 
manquer de se rappeler telle ou telle vaine tentative pour créer un 
programme qui soit à l'abri des messages d'erreur du lecteur de 
disquette, 


Les messages d'erreur sont cependant une chose tout à fait naturelle 
lorsqu'on travaille avec des ordinateurs, Tout le monde fait des erreurs 
que J'ordinateur affiche alors à l'écran. Si l’on veut par exemple 
charger un fichier qui n'existe pas sur la disquette, on obtient la 
remarque lapidaire suivante: 


Filename.Ext not found 


Vous savez alors que vous avez mal indiqué le nom du fichier où que vous 
n'avez pas placé dans le lecteur la bonne disquette, Le lecteur de 
disquette se donne dans un tel cas beaucoup de mal pour essayer de vous 
servir, avant de sortir le message d'erreur. Si aucune extension (type de 
fichier) n’est indiquée, le lecteur de disquette DDI-1 effectuera TROIS 
tentatives pour essayer de trouver le fichier voulu. 


1) sous le nom de Filename, 
2) sous le nom de Filename,BAS 
3) sous le nom de Filename.BIN 


Ce n'est que si toutes ces tentatives échouent que le lecteur de 
disquette vous enverra le message d'erreur indiqué plus haut. si 
toutefois vous indiquez l'extension avec le nom de fichier, une seule 
tentative sera effectuée. (Par exemple  LOAD"Jeuxdeba,lle” ou 
OPENIN"Donnees.dat” etc.) 


Nous vous expliquons par ailleurs au chapitre 1,5 comment éviter 
certaines erreurs, Ces astuces de programmation ne peuvent cependant pas 
toujours être mises en oeuvre avec SUCCÈèS, 


I1 y a malheureusement des instructions telles que Disc missing ou 


d'autres semblables que l'on ne peut absolument pas intercepter par 
programme, 
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Cette erreur ne signifie pas nécessairement que le lecteur de disquette 
SOIT vide, il Se peut également que la disquette n'ait pas été 
Complètement enfoncée. Vous obtenez alors le message d'erreur: 


Drive A: disc missing 
Retry, Ignore or Cancel? 


Un autre exemple: si votre disquette n’est plus en très bon état et qu’un 
Read Fail apparaît comme message d'erreur. On pourrait encore allonger 
cette liste de possibilités. Tout cela ne serait d’ailleurs pas si 
dramatique et ces messages d'erreur pourraient même n'être considérés que 
comme un grand avantage de ce lecteur de disquette, s’il n'y avait pas un 
inconvénient décisif! Si en effet le lecteur de disquette détecte une 
erreur lors du déroulement d’un programme, quelle que soit l'erreur, le 
texte de cette erreur vous est affiché sur l'écran et le déroulement du 
programme est immédiatement interrompu. Ce n'est pas grave, direz-vous, 
cela m'arrive bien aussi lorsqu'il y a une erreur dans mon programme. 11 
est vrai, cependant: 


Il est possible d'éliminer presque totalement les erreurs d’un programme, 
On peut par exemple éliminer toutes les erreurs de syntaxe, tester la 
validité des entrées faites par l'utilisateur et intercepter les 
mauvaises entrées, Il est ainsi possible d'intercepter pratiquement 
toutes les erreurs imaginables lors du déroulement d'un programme. 

[1 est en outre possible d'utiliser l'instruction Basic ON ERROR GOTO 
afin qu'un message d'erreur survenant pendant le déroulement du programme 
n'ait pas pour effet de l'interrompre mais seulement de SUSPENDRE son 
exécution. 

Lorsqu'une erreur se produit, le déroulement normal du programme est 
alors suspendu, l'endroit où l'erreur s’est produite est mémorisé et 
l'ordinateur saute à une sous-routine qui pourra alors éventuellement 
réagir à cette erreur, En programmant de la sorte, on peut intercepter à 
100% tout risque d'interruption du programme. 


Mais que pourriez-vous faire pour que le programme puisse s'assurer 
qu'une disquette figure bien dans le lecteur? Vous pouvez indiquer à 
l'utilisateur du programme de placer une disquette dans le lecteur mais 
cela n'exclut pas un tas d'autres messages d'erreur possibles. Bien, 
direz-vous, Je peux donc utiliser l'instruction ON ERROR GOTO qui est 
vraiment pratique. 
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Malheureusement ON ERROR GOTO n'a aucun effet pour les messages d'erreur 
du lecteur de disquette, Les messages d'’erreur sont sortis malgré tout et 
le programme est interrompu. 


(A ceux d'entre vous qui ne connaissent pas encore suffisamment cette 
instruction, nous recommandons d'en étudier la description dans le manuel 
d'utilisation.) 


Il convient de noter cependant ici que le CPC 664 vous offre ]la 
possibilité d'intercepter les messages d'erreur du disque avec 
l'instruction ON ERROR GOTO,. La variable d'erreur système ERR a alors la 
valeur 32 et la variable DERR contient en outre le numéro d'erreur 
transmis par le DOS, Le programme n'est donc pas interrompu mais le texte 
d'erreur apparaît sur l'écran, Un autre inconvénient est qu'on ne peut 
demander clairement de QUELLE erreur il s'agit car ERR contient toujours 
32 et la variable DERR ne donne pas beaucoup de renseignements à ce 
sujet, 


Les bons conseils sont donc très appréciables dans ce domaine. Même le 
plus opiniâtre des programmeurs peut en effet être un Jour contraint à 
l'abandon. Imaginez comme il est désespérant en effet d'entrer 200 
enregistrements et au moment de les sauvegarder de recevoir de la 
disquette le message 


Disc full 


Le programme est alors interrompu et vous pouvez entrer à nouveau vos 200 
enregistrements! Un tel programme ne correspond bien sûr pas vraiment à 
l'image qu'on se fait d'un logiciel professionnel, Protéger les 
programmes contre un erreur d'utilisation est en effet le premier souci 
des programmeurs professionnels, Mais le lecteur de disquette est 
Justement très sujet à erreur. 


Vous trouverez donc dans ce chapitre une routine en langage machine qui 
résout définitivement ce problème. Les erreurs ne sont plus sorties sur 
l'écran et les programmes ne sont plus interrompus, On aurait pu faire en 
sorte que Ile programmeur ne remarque même pas qu'une erreur a été 
annoncée par le lecteur de disquette. Mais cela n'est vraiment pas 
souhaitable non plus car il vaut mieux prendre connaissance de l'erreur, 
l'important étant simplement que le programme ne soit pas alors 
interrompu, Avec cette routine le problème a été résolu de façon à ce 
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qu'une erreur du lecteur de disquette entraîne la sortie du message 
d'erreur 


Unknown user function 


Ce message d'erreur survient en fait très rarement et c’est pourquoi il a 
été choisi de façon à ce que les erreurs disque puissent être distinguées 
dans un programme des autres erreurs, Tous les messages d'erreur ont des 
codes d'erreur qu'on peut interroger avec la variable système ERR. On 
peut également interroger la ligne dans laquelle est survenue la dernière 
erreur, On utilise à cet effet la variable système ERL, 


Quand donc un message d'erreur est envoyé par le lecteur de disquette, 
celui-ci est intercepté et stocké provisoirement dans un buffer spécial. 
Le programme n'est pas interrompu et une erreur UNKNOWN USER FUNCTION 
avec le code d'erreur 18 est générée. Cette erreur peut alors fort bien 
etre interceptée avec l'instruction ON ERROR GOTO,. 11 faut ensuite 
examiner dans la routine d'erreur correspondante quelle erreur a été 
annoncée, Si la variable de code d'erreur ERR vaut 18, c'est qu’on est en 
présence d’une erreur disque. On peut alors se faire transmettre le texte 
par la routine, dans une variable alphanumérique, pour déterminer de 
quelle erreur précise il s'agit. On peut alors réagir dans le programme à 
l'erreur annoncée, II est possible d'activer ou de désactiver cette 
routine de protection à tout moment. 


Un programme d'exemple 


10 ON ERROR GOTO 1000 

20 CALL active : ‘Routine d'erreur activée 
30 OPENIN “nombres” 

HO WHILE NOT EOF 

DO INPUT #9,a 

60 PRINT a, 

70 WEND 

80 CLOSEIN 

90 CALL desactive : END 

1000 IF ERR<>18 THEN RESUME NEXT 
1010 ds$="+" : CALL msg@ds$ 
1020 PRINT “Disk:”:ds$ 

1030 RESUME SO 


an VE TE 


Vous voyez que les routines d'erreur sont appelées avec l'instruction 
CALL, Il y a là trois différentes adresses d‘'entrée: 


CALL active Avec Cail active, vous activez la routine d'interception 
des erreurs, Un grand nombre de vecteurs du système 
d'exploitation sont alors DETOURNES, Ce problème ne peut 
pas être résolu autrement, Immédiatement après, les 
messages d'erreur ne sont plus sortis sur l'écran mais 
interceptés et entrestockés, Après un message d'erreur 
annoncé par le lecteur de disquette, une erreur Unknown 
user function est générée. Cette erreur peut être 
interceptée avec ON ERROR GOTO. 


CALL msg,@a$ Le dernier message d'erreur annoncé est transmis à travers 
la variable alphanumérique @a$ (toute autre variable 
alphanumér ique est bien sûr également possible), Faites 
attention à ce que, avant d'être appelée avec a$, la 
variable alphanumérique a$ ait bien été INITIALISEE. Un 
a$="" est suffisant. Sinon vous obtiendrez un Improper 
argument. 


CALL desactive La routine d'’interception des erreurs est à nouveau 
désactivée, L'état normal est à nouveau rétabli, 
Immédiatement après les messages d'erreur apparaissent à 
nouveau sur l'écran, 1] est recommandé de placer la 
désactivation des routines d'erreur à la fin de tout 
programme car Vous risqueriez sinon de vous demander 
pourquoi un FILE NOT FOUND ne vous est plus communiqué 
comme d'habitude. | 


On suppose bien entendu que la routine d'erreur soit en mémoire! 


Explication du programme d'erreur: 


LIGNE EXPLICATION 


10 On décide qu'après un message d'erreur le programme doit se 
poursuivre en ligne 1000, 


20 La routine d'erreur est activée. Immédiatement après les 
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30 


40-80 


90 


1000 


1010 


1020 


1030 


messages d'erreur du lecteur de disquette ne sont plus affichés 
à l'écran mais interceptés et stockés dans des buffers. 


Le fichier séquentiel “nombres” est ouvert, Si ce fichier 
n'existe pas, un “File not found” sera généré, 


Si le fichier a pu être trouvé, les nombres sont lus et sortis. 


La routine d’'interception des erreurs est à nouveau désactivée 
et le programme est terminé. 


On teste ici s'il s’agit d'une erreur disquette, Si ce n’est 
pas le cas, l'exécution du programme se poursuit immédiatement 
après l'erreur, 


La variable ds$ est initialisée. Cela est nécessaire pour ne 
pas obtenir un “Improper argument” avec @ds$, Le texte d'erreur 
fourni est alors tranmis à la variable dsf, 


Le texte transmis est sorti sur l’écran, Cela ne représente 
qu'une des possibilités d'utilisation parmi des milliers. 


Le programme se poursuit en ligne 90. 


Voilà donc un exemple d'application. Vous pouvez également voir d'après 
le programme de gestion de fichier que nous vous donnons dans ce chapitre 
comment on peut travailler avec la routine d'erreur de façon très 
intéressante, 


Il s'est avéré très pratique et très intéressant de fixer et d'interroger 
dans le programme ce qu'on appelle des flags, On peut alors reconnaître à 
l'intérieur du programme si une erreur s'est produite où non et réagir 
comme il convient. 


Cela pourrait se présenter comme dans l'exemple suivant: 


10 ON ERROR GOTO 1000 

20 CALL active : ‘’Routine d'erreur activée 

30 errflg=0 : OPENIN “nombres” : IF errflg THEN 100 
HO WHILE NOT ECF 


50 
60 


INPUT #9,a 
PRINT a, 


+ EL A129;- 


7/0 WEND 

80 CLOSEIN 

90 CALL desactive : END 

100 IF RIGHT$(ds$,9)="not found” THEN REM Réagir au message 
110 PRINT “Disk -- “;ds$ 

120 END 

1000 IF ERR<>18 THEN RESUME NEXT 

1010 ds$="+" : CALL msg,@ds$ 

1020 errflg=1 

1030 RESUME NEXT 


Vous voyez dans cet exemple qu'après l'instruction OPENIN on teste s’il y 
a une erreur, S'il n’y a pas d'erreur, l'exécution normale du programme 
se poursuit, 


Si toutefois il y a une erreur, on teste alors s'il s’agit d'une erreur 
"File not found”. Si c'est un “File not found”, on peut y réagir de 
manière appropriée (par exemple en changeant le nom de fichier), Sinon le 
message d'erreur sera sorti, On pourrait bien sûr faire ici encore 
d'autres distinctions, On pourrait ainsi par exemple lors d'un Drive A: 
disc missing demander à l'utilisateur par un message en clair de placer 
une disquette dans le lecteur, 


Ce mode de traitement des erreurs permet par exemple de déterminer par un 
essai d'ouverture d'un fichier si le fichier existe déjà ou non et donc 
de le créer si nécessaire, 


Vous voyez que les possibilités sont très diverses et leur mise en oeuvre 
extrêmement simple. 


Vous pouvez placer la routine d’interception des erreurs dans n'importe 
quelle zone de la mémoire, Pour ceux d'entre vous qui programment en 
langage machine, nous vous fournissons un listing assembleur, Pour tous 
les autres nous vous présentons un Chargeur Basic pour placer la routine 
machine dans n'importe quelle zone de la mémoire, La routine a 229 octets 
de long (ce qui est très peu), C'est certainement une infime dépense de 
place mémoire par rapport à l'usage qu'on peut en faire, Vous pouvez 
entrer en ligne 7/0 du chargeur Basic l'adresse de départ que doit avoir 
le programme, Si vous avez un programme dans lequel aucune instruction 
Symbol after n'est utilisée, vous pouvez placer la routine tout en haut 
de la mémoire, pour perdre le moins de place possible pour votre 
programme Basic, 
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Ln Basic cassette, vous disposez de 43533 octets pour vos programmes et 
vos données, La limite supérieure de la mémoire est en &AB/F. Lorsque 
vous connectez le lecteur de disquette, Un peu de mémoire est perdue pour 
les buffers d'entrée et de sortie ainsi que pour le DOS. Après la mise 
Sous tension, HIMEM est en &A6/B et vous n'avez pius que 42249 octets de 
libres, Le DOS nécessite toutefois encore 4096 octets pour les buffers 
d'entrée et sortie que nous venons d'indiquer, Ces buffers peuvent 
cependant être librement déplacés (contrairement à la mémoire système), 
Nous mettons en place cette mémoire avec: 


OPENOUT ‘’dummy“ 

MEMORY HIMEM-1 

CLOSEOUT 

Nous obtenons maintenant pour HIMEM la valeur de &96/7A, Ii reste 38152 
octets libres. La limite supérieure pour Basic se trouve donc dans le 
meilleur des cas en &6/A, Notre routine a 229 octets de long et 
nécessite en outre encore 40 octets comme buffer pour le texte du message 
d'erreur, Nous calculons donc &96/A-229-40-956D et nous faisons 
maintenant commencer notre routine en 8&956D, Entrez cette Valeur dans la 
ligne 7/0 du chargeur. 

Si vous utilisez toutefois l'instruction Symbol after, vous devrez placer 
la routine un peu plus bas dans la mémoire. À cet effet, éteignez votre 
ordinateur et rallumez-le, Entrez alors: 


Symbol After n 


Remplacez ici n par la plus grande valeur survenant dans le programme. 
Entrez ensuite: 


OPENOUT “dummy” 
MEMORY HIMEM-1 
CLOSEOUT 


PRINT HEX$SCHIMEM-229-40) 

Vous obtiendrez par exemple avec Symbol after 190 un résultat de &93DD, 
Vous n'avez plus alors qu'à définir 8&93D0 comme adresse de départ, C'est 
tout. 

Créez de cette manière, à titre d'exercice, une routine située en 89650. 


Vous pourrez utiliser cette routine dans la plupart des programmes, tant 
que vous n'utilisez pas d'instructions Symbol after et tant que d’autres 
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routines machine ne sont pas intégrées dans le programme, Sauvegardez 
alors ce fichier sur disquette car il est plus facile de charger la 
routine d'’interception des erreurs à partir de la disquette plutôt que 
d'intégrer chaque fois toutes les lignes DATA dans le programme. Si vous 
voulez maintenant intégrer la routine d'interception des erreurs dans un 
programme, conformez-vous à la marche à suivre ci-dessous: 


1) Créez le fichier de programme binaire avec le programme de chargeur 
Basic et sauvegardez ce programme sur disquette (bien sûr sur la 
même disquette sur laquelie est sauvegardé ie programme qui 
nécessite et charge cette routine), 


ni) Intégrez ia routine dans le programme. Il convient ici aussi de 
procéder dans l'ordre car il peut Sinon arriver que 409% octets 
Soient inutilement perdus. Cela arrive en effet lorsque la routine 
est d’abord chargée, que ia limite supérieure de la mémoire est 
alors abaissée et que le buffer n'est défini qu'ensuite, 


Un programme chargeant la routine d’'interception des erreurs devrait se 
présenter à peu près comme ceci: 


10 ON ERROR GOTO 20000 'Routine d'erreur 
20 LOAD "ERROR.BIN" 

30 MEMORY 89650-1 

HO OPENOUT “’dummy‘ 

DO MEMORY HIMEM-1 

60 CLOSEOUT 

20: 

80 . 

90 . 


Vous reconnaissez l’ordre à suivre, La routine doit d'abord être générée 
et sauvée sur disquette Sous le nom “Error.bin"; n'importe quei autre nom 
est également possible puisque vous fixez vous-même le nom de fichier 
dans le chargeur, 


Notre programme charge d’abord ce fichier, la limite de la mémoire est 
ensuite fixée directement en dessous de notre routine ainsi chargée, de 
façon à ce que notre routine ne puisse être effacée ni par des variable 
ni par les buffers du DOS. Ce n’est qu'ensuite que sont créés les buffers 
du DOS et que la limite de la mémoire est à nouveau abaissée, La routine 
ne peut plus maintenant être effacée, Le mieux est de toujours éteindre 
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puis rallumer l'ordinateur avant d'utiliser de tels programmes car {1 
peut y avoir certaines complications Si vous aviez auparavant un 
programme qui avait déjà mis en place le buffer du DOS ou si la limite 
supérieure avait déjà été abaissée d’une manière ou d'une autre, Après 
tout cela, le mieux est que vous définissiez encore QUATRE variables dont 
vous aurez en permanence besoin dans le programme, 


ACTIVE=89650+0 
MSG=89650+3 
DESACTIVE=-89560+6 
DS$="" 


Avec une autre adresse de départ de la routine, vous devez bien sûr 
modifier ces valeurs, Il s'agit ici des adresses d'entrée des différentes 
routines, Nous vous souhaitons beaucoup de succès dans l'utilisation de 
ces routines, Mais avant que vous ne vous précipitiez pour taper ce 
chargeur Basic: dans ce chapitre figure un autre paquet de routines pour 
rendre possible la Sauvegarde relative de fichiers. Ces routines ont été 
réalisées à l'aide des instructions RSX plus puissantes. La routine 
d'interception des erreurs est intégrée dans ce paquet de routines, Si 
vous voulez donc utiliser la sauvegarde relative de fichier, il vaut donc 
mieux que vous tapiez le chargeur Basic de la sauvegarde relative de 
fichier pour éviter beaucoup de travail inutile, 


Les possesseurs d'un CPC 664 qui Jugent la routine d'’interception des 
erreurs inutile parce qu'elle est soutenue par leur Basic ne doivent pas 
perdre de vue trois faits importants: 


1) Les messages d'erreur apparaissent obligatoirement sur l'écran: cela 
est difficilement admissible pour des programmes professionnels. 


2) Vous n'avez pas de compatibilité avec les ordinateurs CPC 464, 


3) L'interrogation de la variable ERR vous indique s’il y a une erreur 
disque mais vous n'obtenez jamais le message d'erreur précis et vous ne 
pouvez pas l'obtenir non plus en utilisant la variable DERR! Il ne vous 
est donc pas possible de distinguer un DISC FULL du message d'erreur DISC 
IS MISSING, 
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5,2,1 Explications Sur la routine d'interception des erreurs 


Pour intercepter Iles messages d'erreur certaines connaissances sur 
l'intérieur du CPC sont nécessaires car on ne doit pas sous-estimer 
l'intervention dans le système d'exploitation qu'il est nécessaire 
d'entreprendre. Nous nous servons pour cela de la possibilité qu'offre le 
CPC de DETOURNER certains vecteurs, Nous devons utiliser abondamment 
cette possibilité. 


Lorsque le lecteur de disquette sort un message d'erreur sur l'écran, la 
routine du système d'exploitation IXT OUTPUT, en &BB5A, est appelée, 
Cette routine sert à sortir sur l'écran dans la fenêtre actuelle un 
caractère placé dans l'’accumulateur, Cette routine est donc détournée. 

La routine d’interception des erreurs est donc placée et exécutée AVANT 
la routine TXT OUTPUT normale, et ce pour CHAQUE caractère devant être 
affiché à l'écran. Cette routine examine si le caractère à afficher vient 
du lecteur de disquette, A cet effet, on examine l'adresse de retour 
placée sur la pile, La ROM disquette est située dans la zone AU DESSUS de 
&CO00, C'est ici également que se trouve le système d'exploitation Basic. 
La routine de transmission des messages d'erreur est située dans la zone 
de &CB0O0 à &CBFF, 11 nous suffit donc d'interroger l'octet fort de 
l'adresse de retour. Si donc TXT OUTPUT est appelée à partir de cette 
zone, il s’agit d'un caractère venant du lecteur de disquette qui est 
intercepté par la routine et stocké provisoirement pour une utilisation 
ultérieure. 

Un flag est mis simultanément pour qu'on puisse ensuite tester si une 
erreur s'est produite. Le flag sert en outre à intercepter 1e message 
BREAK, Le message BREAK ne vient pas en effet de la ROM disquette mais de 
la ROM Basic normale, Tout cela est réalisé dans la routine OUTCHK (voyez 
le listing assembleur). Dans cette routine, les vecteurs sont détournés 
et ces vecteurs sont à nouveau fixés à leur valeur normale dans la 
routine RESET, 

Lorsque le lecteur de disquette a sorti un message d'erreur, il saute à 
la ROM Basic, à l'endroit où les programmes sont interrompus, Le message 
BREAK est sorti et le programme est interrompu, Nous devons ici détourner 
le vecteur Ready Modus pour empêcher que les programmes puissent être 
interrompus, Cette routine teste si le flag d'erreur est mis car on peut 
fort bien parvenir au mode Ready Modus SANS qu’un message d'erreur ne se 
soit produit. Si le flag d'erreur est mis, le message d'erreur #18 
(Unknown user function) est généré qui pourra ensuite être intercepté. 


Nous avons enfin encore la routine GETIXIT qui sert à nous transmettre le 
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message d'erreur en Basic. Nous obtenons donc le message d'erreur en 
clair dans une variable alphanumérique quelconque. 


La routine KWC sert à envoyer un C pour répondre à la question éventuelle 
Retry, Ignore or Cancel 


L'erreur est ainsi immédiatement reconnue et le déroulement du programme 
est immédiatement interrompu. 


ATTENTION! IMPORTANT! 


Lorsque vous faites afficher le catalogue d'une disquette, ces caractères 
sont également interprétés comme une erreur car ils proviennent 
exactement de la même zone que les messages d'erreur, Cela vaut aussi 
bien pour l'instruction IDIR que pour l'instruction CAT. Lorsque la 
routine d'erreur est activée, l'instruction IDIR devient inopérante! Si 
vous voulez utiliser cette instruction, vous devez utiliser 


CALL active:IDIR:CALL desactive 


L'instruction CAT a été traitée ici de facon spéciale, Ses vecteurs ont 
également été détournés de sorte que l'instruction CAT peut être utilisée 
comme à la normale, 


Pour tous ceux qui veulent utiliser la routine d'interception des 
erreurs, il est certainement égaiement intéressant de savoir comment 
cette routine a été ici intégrée dans le programme. En fait 8 lignes 
suffisent, à partir de la ligne 31/70, pour réaliser un traitement 
pratique des erreurs, L'ouverture d'un fichier se présente donc 
maintenant ainsi: 


ef=0:OPENIN"nom de fichier”:1F ef THEN recommencer 


Le flag d'erreur ef est mis à O avant l'OPENIN, S'il est mis après 
l'OPENIN, c'est qu’une erreur s’est produite et on essaie à nouveau 
d'exécuter l'instruction OPENIN, Dans la routine d'erreur, l'utilisateur 
a la possibilité soit de revenir au menu principal, soit d'entreprendre 
une nouvelle tentative d'ouverture; cela peut dépendre du message 
d'erreur survenu, Par exemple, avec Disc missing, on peut placer la 
disquette dans le lecteur de disquette et essayer à nouveau (ef vaut 
alors 1). Pour un Read fail, cela est moins évident, Si le message 
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d'erreur est un File not found, la variable nf est mise à 1. Aucun texte 
d'erreur n'est sorti. On peut par exemple tester de cette façon si un 
fichier existe déja. 
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ROUTINE D'INTERCEPTION DES ERREURS 
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SET: 
CPC664: 


CPC66A: 


ï 


(C) 1985 BY DATA BECKER GMBH 
JS 22/3/1985 


ORG #5100 

JP SET : FIXE POINTEUR 

JP GETIXT RETIRE CHAINE 

JP  RESET .RESTAURE LES VECTEURS 
CALL #B900 . ROM ENABLE 

PUSH AF . RANGE ETAT ROM 

LD A,(#DE01) . RETIRER CARACTERE 

LD  (VER),A : RANGE NUMERO DE VERSION 
POP  AF 

CALL #B90C . ROM DISABLE 

CP #71 . 464 OÙ 664? 

JR NZ, CPC664 . 664! 

LD A, #C3 

LD  (#AC01),A : READY 

LD A,#C3 

LD  (#BB5A),A . OUT CHAR 

LD  (#BB06),A KM WAIT CHAR 

LD  (#BC9B). A : CAS CATALOG 

LD A, (VER) 

CP. #71 


JR NZ, CPC66A 
LD  HL,READYMODE 


LD  (#AC02),HL : DETOURNER READY 
LD  HL, OUTCHK 

LD  (#BB5B),HL : DETOURNER OUT CHAR 

LD  HL,KWC 

LD  (#BB07),HL . DETOURNER KM WAIT CHAR 
LD  HL,CAT 

LD  (#BC9C),HL : CAS CATALOG 

RET 


; ROUTINE TESTE, SI CARACTERE VIENT DU LECTEUR DE DISQUETTE 


OUTCHK: 


EX  (SP),HL RETIRE ADRESSE RETOUR 
PUSH AF : SAUVE ACCU 

LD A,H : TESTE OCTÉT FORT 

CP #CB : VIENT DE LA ROM FLOPPY 
JR NZ, NEIN : NON 

LD Ai 

LD  (TESTERR),A : FIXER FLAG 

POP  AF .NE PAS SORTIR CARACTERE 
PUSH HL : SAUVE HL 

LD HL,(HELP) : RETIRE POINTEUR BUFFER 
CP 10 : CARACTERE EST-IL LF 


JR Z, NOT 


At re 


: CR AUTORISE COMME SYMBOLE DE SFPARATION 
LN 


(HL),A : MEMOIRE CARACTÈRE 
INC HL 
LD AL 
CP 40 : 40 CARACTERES? 
JR NZ,NI 
DEC HL : 40 CARACTERES MAXI 
N1: LD  (HELP),HL 
NOT: POP HI 
PUSH AF 
SUPRES: POP  AF 
EX  (SP}),HL : ADRESSE RETOUR 
RET : PAS DE SORTIE 


NEIN: LD A, (TESTERR) 
A 


OR 

JR NZ, SUPRESS . INTERCEPTE 

POP AF : RETIRE CARACTERE 
EX  (SP),HL 

DFFB #CF,0,#94 :RST 2 


î 
: ROUTINE POUR MODE READY 


READYM: LD A, (TESTERR) 
OR A FIXE FLAGS 
RET 7 ; PAS D'ERREUR 
XOR A 
LD  (TESTERR),A 
LD  HL,BUFFER . ADRESSE BUFFER 
LD  (HELP),HL 
LD  E,18 
JP  #CA94 


: DETOURNER #BB06 KM WAIT CHAR 
: VALEUR DÉFAUT POUR ERREUR ELECTRONIQUE 


: C=CANCEL 

KWC: PUSH AF : SAUVE ACCU 
LD A,(TESTÉRR) 
OR A . FIXE FLAGS 
JR NZ, DEFAULT 
POP AF : PAS DEFAUT-C 
DEFB #CF,#3C, #9A 

DEFAUL: POP AF 
LD A,"C" : DEFAUT 


ï 
: ROUTINE POUR RESTITUER LE TEXTE DE L'ERREUR 
GETTXT: LD E,2 


CP 01 : 1 PARAMETRE ? 
RET NZ ; MAUVAIS NOMBRE PARAMETR 
LD E,(IX) : OCTET FAÏBLE 
LD D,(IX+1) : OCTET FORT 
LD C,#FF ; COMPTEUR 
LD HL, BUFFER 
ii LD A,(HL 
CP 13 ; CARRIAGE RETURN? 
INC HL 


“RL ASS 


1240 JR 2, Li 


1250 DEC HL : TROUVE PREMIER CAR.TEXT 
1260 PUSH HL : RANGER 

1270 DEC. RE : MOINS UN 

1280 LOOP: INC C 

1290 INC HL 

1300 LD A, (HL) 

1310 CP 13 : CARRIAGE RETURN? 
1320 JR NZ, LOOP 

1330 LD AC 

1340 LD (DE),A : RANGER LONGUEUR 
1350 POP HL : ADRESSE TEXTE 
1360 EX DE, HL 

1370 INC HL 

1380 LD  (HL),E .OCTET FAIBLE 
1390 INC HL 

1400 LD  (HL),D .OCTET FORT 

1410 RET 

1420 ; 0e 

1430 : 

1440 ;RESTAURER LES POINTEURS 

1450 ; 

1460 RESET: LD A,(VER) : NUMERO DE VERSION 
1470 CP #71 

1480 JR NZ, CPC668B 

1490 LD A, #C9 

1500 LD  (#ACO01),A 

1510 CPC66B: LD A,#CF :RST 2 

1520 LD  (#BB5A),A : OUT CHAR 

1530 LD  (#BB06) A KM WAIT CHAR 
1540 LD A,#DF : RST 38H 

1550 LD  (#BC9R),A : CAS CATALOG 

1560 : 

1570 LD HL,#9400 : OUT CHAR 

1580 LD (#BB5B),HL 

1590 LD  HL, #9A3C .KM WAIT CHAR 
1600 LD (#BB07),HL 

1610 LD  HL, #A888 

1620 LD  (#BC9C).HL .CAS CATALOG 

1630 RET 

1650 CAT: PUSH AF : SAUVE REGISTRES 
1660 PUSH HI 

1670 CALL RESET : RFESTAURE VALEURS 
1680 POP HL : D'ORIGINE 

1690 POP  AF 

1700 CALL #BC9B : CAS CATALOG 

1710 PUSH HL 

1720 PUSH AF 

1730 CAIL SET : ET ACTIVER A NOUVEAU 
1740 POP AF 

1750 POP HL : RESTAURE REGISTRES 
1760 RET 

1770 jee 


1780 : POINTEURS ET MEMOIRE AUXILIAIRE 


1790 ; mwmmuwumuue ue 60 06e 06 De 00 0 


1800 ; 
1810 TESTER: DEFB #0 
1820 VER: DEFB O0 


1830 HELP: DEFW BUFFER 

1840 BUFFER: DFFM "OK" 

1850 DEFB #0D : CR 

1860 DEFS 40-3 ; BUFFER 40 CARACTERES 


cui LE ES 


DO Mu de qu de a 0 0 26 cu 40 4 + 46 6 0 6 0 4 6 40 6 6 2 2 6 0 2 0 4 26 6 

20 ‘#”#“ Routine d'interdiction des erreurs ##4#4#44% 

30 ‘#”…æ (C) 1985 by DATA BECKER GmbH JS 22/3/85 * 

AO ‘Ou de 46 40 26 0 6 6 40 0 0 0 0 6 0 2 2 2 CH 2 6 6 

50 

60 DEFINT a-z 

se adresse = &A000 : ‘Adresse de depart de la routine 

80 : 

90 DATA &C3,809,851,8C3,883,851,8C3,8AC,&51,83E,&C3,832,801, 

BAC, 832, &5A 

100 DATA &BB, 832,806, 8BB,8&32,89B,&BC,&821,860,851,822,&02, &AC 
,821,830,851 

110 DATA 8&22,85B,&BB,821,8&74,851,822,807,8BB,&21,&01,&51,&22 
.&9C, &BC, 8&C 

120 DATA &É3,8F5,&7C,&FE,&CB, 8&20,&1E,83E,801,832,8E3,851,8F1 
, &E5,&2A,&E4 

130 DATA 851,8FE,&O0A,828,80B,877,823,8&7D,&FE,828,8&20,&01,&2B 
 822,8&E4,851 

140 DATA &E1,8F5,8&F1,&E3, &C9, 83A,&E3,851,8B7,8&20,8&F7,8&F1,&E3 
, &CF,8&00,8&94 

1 50 DATA &3A,8E3,851,8&B/,8CB8,8AF,832,8E3,8&51,821,&E6,851,8&22 
 &E4,&5i, &1E 

160 DATA &12,8C3,894,8CA,&F5,83A,&E3,851,8B/,8&20,8&04,8F1,&CF 
 &3C,89A,8&F1 

170 DATA &3E, 843 C9) 81€, &O02,8FE,8&01,8&C0,8DD,&5E, &00,&DD,&56 
, &01,&0E, 8&FF 

180 DATA &21,8E6,851,8/E,&FE, &OD,823,8&28,8FA,&2B,8E5,&2B, &0C 
, &23,&7/E, &FE 

190 DATA 80D,820,8F9,8&/79,8&17,&E1,8EB,823,8&73,8&23,8&72, &C9, 8&3E 
, 8C9,832,8&01 

200 DATA &AC,&3E,8CF,832, 8&5A, 8BB, 832,806, 8BB, 83E, 8DF, 832, &9B 
.8BC, 821,800 

210 DATA &94,822,85B,&BB,&21,83C,&9A,822,807,&BB,&21,8B8B, &AB 
822, 8&9C, &BC 

220 DATA &C9,8F5,8E5,&CD,&AC,851,8&E1,8F1, &CD, &9B, &BC,&E5,&F5 
.&CD,&09,&51 

230 DATA &F1,8E1,8C9,8&00,8&E6,8&51 
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240 : 

260 FOR i=adresse TO adresse+&E5 

270 READ a 

280 POKE i,a 

290 s=s+a 

300 NEXT 

310 IF 5<>28065 THEN PRINT CHR$(7)"#…#x Erreur en DATAS #*#*" 
: END 

320 : 

330 DATA &01,8&09,8&04,8&83,&07,&ac,8&18,860,81e,830,824,874,82a 
 &d1,8&3a,8&e3 

340 DATA &3f,8e4,&de, &e4,856,8e3,861,8e3,867,8e3,&6a,&e6, &6d 
.8e4,8&/76,8&e3 

350 DATA &91,8e6,&d4,&ac,&de, 8&09,&e4,&e6 

360 : 

370 FOR i=1 TO 20 

380 READ of1,of2 

390 adi=adresse+of2 

400 POKE adresse+of1,ad1 AND 255 : 'octet faible 

410 EN adresse+of1+1,INT(ad1/256) AND &FF 


420 NEX 

430 : 

440 INPUT "Le fichier doit-il etre sauve? (O/N) ",a$ 

450 IF UPPER$S(a$)="O0" THEN INPUT "Nom du fichier : ",b$ : SA 


VE b$,b,adresse,&E8 


mi THE = 


2.3 GESTION DE FICHIERS RELATIFS 


Vous avez appris au chapitre 1,5 comment on programme les fichiers 
séquentiels et vous êtes certainement impatient de découvrir les fichiers 
relatifs qui offrent vraiment quelques avantages remarquables, Ce mode de 
programmation n'est toutefois pas toujours optimal: notamment pour de 
petites applications, l'utilisation des fichiers relatifs ne présente 
aucune intérêt car elle prendrait plus de temps et de place que la 
programmation séquentielle des fichiers, Ce n'est que si des corrections 
et divers accès au fichier sont souvent nécessaires que les fichiers 
relatifs deviennent très vite intéressants, Outre la différence dans le 
travail exigé de l'‘'utilisateur par les fichiers relatifs ou les fichiers 
séquentiels, il existe d'autres différences importantes, 


Tout d'abord, avec un fichier relatif, il n'est plus nécessaire de 
charger un fichier entièrement en mémoire pour pouvoir le traiter, Les 
boucles compliquées pour rechercher ou pour lire un enregistrement 
déterminé du fichier deviennent également superflues, 11 y a au lieu de 
cela d'autres règles qu'il faut suivre: c'est ainsi qu'il faut réfléchir 
auparavant très sérieusement à la tallle maximale que pourra avoir un 
enregistrement (combien de caractères notre enregistrement pourra-t-il 
comporter?), et au nombre d'enregistrements que contiendra notre fichier 
(combien d'enregistrements voulons-nous traiter?), Avec les fichiers 
séquentiels, vous pouviez Jusqu'ici faire l'économie de cette réflexion 
préalable, bien que tout programmeur sérieux doive en fait toujours 
essayer d'évaluer la taille de son fichier avant de commencer son 
travail, ne serait-ce que pour savoir combien d'enregistrements rentrent 
sur une disquette. 


Nous allons maintenant effectuer un tel calcul en reprenant notre exemple 
du chapitre 1,5; vous vous Souvenez certainement de notre agenda 
téléphonique: 

Nous avons TROIS champs de données 

Champ 1) Nom 

Champ 2) Prénom 

Champ 3) Numéro de téléphone 


Supposons maintenant que vous vouliez sauvegarder 50 enregistrements de 
ce type, nous aurons alors 50 enregistrements, 
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l'our pouvoir accepter Ile cas échéant d'autres enregistrements, nous 
créerons 100 enregistrements. 11 nous faut maintenant déterminer encore 
la taille des enregistrements. Il faut pour cela attribuer d'abord à 
chaque champ de données une longueur maximale qui ne pourra plus être 
ensuite dépassée dans le programme, Vous devez donc veiller à ce que ces 
limites soient respectées car Sinon cela peut entraîner des 
complications. 11 s’agit là d’une contrainte que vous retrouverez pour 
tous les fichiers relatifs, même sur les plus gros ordinateurs. La taille 
d'un enregistrement est un élément important pour un bon déroulement des 
calculs qui permettront de déterminer où tel ou tel enregistrement se 
trouve, 

Avec NOTRE gestion de fichiers relatifs, vous avez même une certaine 
marge de manoeuvre puisque vous pouvez dépasser sans crainte les limites 
des différents champs de données pourvu que vous raccourcissiez le champ 
suivant en fonction de ce dépassement, Nous avons prévu cela pour rendre 
la gestion de fichier un peu plus souple mais il n'en va pas de même sur 
tous les systèmes! Vous devez simplement veiller à ce que la longueur 
totale ne soit pas dépassée, Mais revenons à notre exemple: 


Nous devons attribuer maintenant les longueurs maximales, c'est-à-dire le 
nombre maximum de caractères autorisé pour chaque CHAMP DE DONNEES, 
Choisissons par exemple les limites suivantes: 


Champ 1) Nom (25 caractères) 
Champ 2) Prénom (15 caractères) 
Champ 3) Numéro de téléphone (15 caractères) 
Total 55 caractères 


Le nom peut donc comporter au maximum 25 caractères, ce qui devrait 
suffir même pour des doubles noms, le prénom est limité à 15 caractères, 
Nous avons enfin encore prévu au plus 15 caractères pour le numéro de 
téléphone. Cela nous donne au total 55 caractères par enregistrement, 11 
faut encore ajouter 3 à ces 55 caractères car nous avons trois champs de 
données qui doivent être séparés les uns des autres. Le symbole de 
séparation ne serait pas nécessaire si les champs de données avaient une 
taille fixe mais comme ce n’est pas 1e cas nous aurons besoin également 
avec les fichiers relatifs d’un symbole de séparation. Nous arrivons 
ainsi à une longueur de 


58 caractères 
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Mais pour que la routine de gestion de fichiers relatifs ne soit pas trop 
longue -car c'est vous qui devrez la taper- nous avons prévu une limite: 
la longueur d'enregistrement doit être arrondie à la prochaine puissance 
de 2, Dans notre exemple, cela signifie que nous indiquerons 64 comme 
longueur d'enregistrement, 


La longueur maximale d'enregistrement est de 512 octets, vous avez donc 
le choix entre les longueurs d’enregistrements suivantes: 


2, 4, 8, 16, 32, 64, 128, 256 et 512 


Vous pouvez ainsi choisir entre 9 différentes longueurs d'enregistrement 
possibles, Si la longueur d'enregistrement que vous avez calculée est par 
exemple de 32, alors vous avez de la chance et vous pouvez indiquer aussi 
32 comme longueur. Si par contre vous arrivez à un caractère de plus, 
vous devez Soit choisir la longueur d'enregistrement 64, soit essayer de 
réfléchir à nouveau Si vous ne pouvez pas raccourcir l’un ou l’autre des 
champs de données, Dans notre exemple, nous avons calculé une longueur de 
58, La différence entre 64 et 58 est de 6. Vous aurez donc 6 octets en 
trop pour chaque enregistrement qui seront ainsi “gaspillés”. Vous pouvez 
donc prendre en compte cette longueur d'enregistrement et augmenter 
encore l’un ou l'autre des champs de données de 1 où 2 caractères. On 
peut cependant tout à fait accepter cette contrainte, Pour les fichiers 
relatifs, vous pouvez oublier les instructions utilisées jusqu'ici pour 
les fichiers séquentiels, à part les instructions OPENIN et CLOSEIN, Par 
contre nous utiliserons 4 nouvelles instructions: 


LINIT,<longueur> 

IRECORD, <numéro d'enregistrement > 
IPUT,<liste de paramètres> 
IGET,<liste de paramètres> 


L’instruction GET est comparable à l'instruction LINE INPUT et concerne 
donc la lecture des données, PUT sert à l'écriture des données et est 
donc comparable à PRINT. 


Lorsqu'un champ de données doit comporter des nombres, ces nombres 
doivent être convertis en une chaîne de caractères avec l'instruction 
STR$, Pour les nombres réels, la longueur d'un champ de données est alors 
de 12 et de { seulement pour les nombres entiers, 


Comme le lecteur de disquette DDI-1 ne permet pas normalement le travail 
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avec des fichiers relatifs, ceux-ci seront simulés avec des fichiers 
séquentiels, Avant que nous puissions travailler avec un fichier relatif, 
celui-ci doit d'abord avoir été “créé”. Nous réalisons cela en créant un 
fichier séquentiel dans lequel il n'y aura rien. Souvenez-vous que notre 
fichier d'exemple doit comporter 100 enregistrements avec une longueur 
d'enregistrement de 64 caractères, Nous avons donc besoin d'une place 
mémoire de 100*64 = 6400 octets. La création d'un tel fichier est très 
simpie: 


10 REM =====zs=ssesseeceseusessessss 
20 REM Création du fichier 

30 REM ==========2-===-2-2--2---222 
UO : 

50 OPENOUT "Fichier ,Rel” 

60 FOR i=0 TO 100 

70 PRINT STRING$(64,32); 

80 NEXT 

90 CLOSEOUT 


La boucle en ligne 60 doit contenir le nombre d'enregistrements prévu, 
100 dans notre exemple. La ligne 70 réserve la place nécessaire pour 
chaque enregistrement; nous remplissons donc notre fichier (encore) 
séquentiel avec des caractères espace (vous pouvez choisir n'importe quel 
caractère), Le point-virgule en ligne 70 permet que le calcul tombe tout 
à fait juste. Ces quelques lignes sont suffisantes pour créer un fichier 
relatif que nous allons maintenant pouvoir traiter, 


Nous pouvons maintenant écrire 100 enregistrements dans notre fichier et 
dorénavant chaque enregistrement aura un numéro qui le définit de façon 
précise, Le premier enregistrement aura le numéro d'enregistrement 0. 
Lorsque vous ouvrez un fichier relatif, vous pouvez toujours utiliser 
l'instruction OPENIN, II est possible d'écrire et de lire simultanément 
dans un fichier relatif mais l'ouverture se fait toujours avec OPENIN!! 


L'instruction IINIT permet de définir la longueur d'enregistrement, Cela 
doit être fait IMMEDIATEMENT après l'ouverture du fichier, OPENIN et 
[INIT marchent toujours ensemble, comme deux frères siamois, 
L'instruction IINIT a un paramètre; vous pouvez utiliser aussi bien des 
constantes (ce qui sera le plus souvent le cas) que des variables, Dans 
notre exemple, vous devriez entrer: 


TINIT,64 


= HITS 


[Il serait cependant également possible d’entrer: 
longueurenregistrement=64:11NIT,longueurenregistrement 


Avec l'instruction IRECORD, vous pouvez déterminer quel est le prochain 
enregistrement qui devra être traité; il est indifférent à cet égard que 
vous vouliez Iire ou écrire cet enregistrement, Le premier enregistrement 
a le numéro 0. Si cela vous ennuie, vous pouvez fort bien laisser de côté 
ce premier enregistrement ou l'utiliser comme mémoire spéciale. 
L'instruction IRECORD a également un paramètre qui peut également être 
une constante ou une variable, Avec l'instruction IRECORD il est 
cependant plus probable qu'on ait à utiliser une variable comme 
paramètre, Pour vous positionner par exemple sur le 36ème enregistrement, 
entrez: 


IRECORP, 35 


Les instructions IGET et IPUT ont une syntaxe identique. L’instruction 
IGET retire des données de l'enregistrement sélectionné et l'instruction 
IPUT écrit des données dans l'enregistrent sélectionné. Les instructions 
IGET et IPUT ont un nombre de paramètres quelconque compris entre 1 et 
32, Si vous n'entrez aucun paramètre, vous n'aurez pas de message 
d'erreur, mais l'instruction restera sans effet. Vous ne pouvez 
transmettre QUE des variables alphanumériques., Les constantes qui doivent 
etre écrites doivent auparavant avoir été affectées à une variable 
alphanumérique, Supposons par exemple que nous voulions écrire le mot 
“Cheval” dans le 24ème enregistrement. Nous devrons alors entrer la 
séquence d'instructions suivante: 


10 OPENIN "Fichier.REL” 
20 TINIT,64 

30 IRECORD, 23 

40 a$="Cheval” 

50 IPUT,€@a$ 

60 TINIT,O 

70 CLOSEIN 


Cette exemple nous permet de noter deux particularités. Avant de fermer 
un fichier relatif, vous DEVEZ entrer l'instruction IINIT,0 et ce n'est 
qu'après que vous pouvez fermer le fichier. Cela garantit que des données 
qui pourraient se trouver encore en mémoire avant la fermeture du fichier 
soient écrites sur la disquette. Une seconde particularité tient à 
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l'instruction IPUT: la variable alphanumérique ne peut pas être indiquée 
directement après la virgule, vous devez placer un @ devant. 11 ne s’agit 
pas là d’une Ilubie des auteurs de cet ouvrage mais d'un défaut du système 
d'exploitation qui ne prévoit que cette possibilité comme unique 
interface entre le Basic et le langage machine. Cette petite difficulté 
ne devrait cependant pas vous gêner outre mesure car il est facile de s'y 
habituer. Si vous voulez transmettre plus d'un paramètre à l'instruction 
IPUT, vous devez séparer les différents paramètres entre eux par des 
virgules. Nous allons par exemple écrire encore le mot “Chat” dans notre 
enregistrement: 


10 OPENIN ‘Fichier .REL" 
20 IINIT,64 

30 IRECORD, 23 

40 a$="Cheval” 

45 b$="Chat” 

20 IPUT,@a$,@ebf 

60 IINIT,0 

70 CLOSEIN 


Il est par ailleurs indifférent que vous écriviez tous les champs de 
données d'un enregistrement dans une seule instruction IPUT ou que vous 
le fassiez en plusieurs instructions car des pointeurs internes veillent 
déjà au bon déroulement des opérations. Nous pouvons relire les données 
tout aussi simplement que nous les avons écrites, grâce à l'instruction 
[IGET, 

Vous pouvez ici transmettre un nombre quelconque de variables 
alphanumériques comme paramètres, 11 est tout aussi indifférent que vous 
lisiez tous les champs de données dans une seule ligne ou en plusieurs, 
Nous allons maintenant relire notre enregistrement: 


10 OPENIN “Fichier .REL" 
20 IINIT,64 

30 a$="" : b$-"” 

HO IRECORD, 23 

50 IGET,@a$,©b$ 

60 PRINT a$,b$ 

70 TINIT,0 

80 CLOSEIN 


Lorsque vous transmettez des variables alphanumériques comme paramètres à 
[a routine IGET, celles-ci doivent avoir été déjà rencontrées au moins 


*, El A87>- 


une fois dans le programme, sinon l‘'interpréteur Basic vous enverra Île 
message d'erreur: 


Improper argument 


Voilà en fait tout ce que vous devez prendre en compte, Pour ne pas 
allonger les routines plus que nécessaire, nous avons renoncé à la 
plupart des interrogations d'erreur, Vous devez donc veiller vous-même 
dans votre programme à ne pas fournir de numéros d'enregistrement trop 
importants (ce qui pourrait entraîner de gros désagréments) et vous devez 
également faire attention à ne pas dépasser la longueur d'enregistrement 
maximale car sinon vous effacerez les enregistrements suivants, Lorsque 
vous avez ouvert un fichier relatif, vous ne pouvez ouvrir aucun fichier 
de Sortie avec OPENOUT; vous ne devez donc avoir d'ouvert que le fichier 
relatif. Cela est d'ailleurs bien compréhensible puisque dans un fichier 
relatif, vous pouvez simultanément lire ET écrire, 

Faites attention à bien mettre en place et protéger les buffers d'entrée 
et de sortie au début du programme avec l'instruction: 


OPENOUT "Dummy” : MEMORY HIMEM-1 : CLOSEOUT 


Vous risquez sinon en effet d'avoir des difficultés lors du travail avec 
les instructions disquette étendues, Si vous voulez vous-même travailler 
avec la routine, prenez le programme d'exemple que nous vous fournissons, 
Vous pouvez voir d'après le programme d'exemple comment et dans quel 
ordre les différentes instructions doivent être utilisées. 


N'utilisez pas l'instruction CAT car elle ferme le fichier sans sauver 
encore sur disquette des données éventuellement nécessaires et elle 
efface le buffer. 


Si vous observez les règles, vous aurez beaucoup de réussite dans 
l'utilisation de cette routine, Le fichier relatif peut avoir n'importe 
quelles dimensions et il peut s'étendre théoriquement sur toute la 
surface de la disquette, Les temps d'accès sont très courts comme le 
démontre le programme d’exemple, Nous avons intégré également, outre les 
instructions pour la gestion des fichiers relatifs, les instructions pour 
la routine d'interception des erreurs (voir chapitre 5,2), Les 
instructions doivent être manipulées exactement comme décrit au chapitre 
5,2, CALL active devient IAN et CALL desactive devient IAUS et CALL msg 
devient IERR. Vous disposez donc encore des trois instructions suivantes: 
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1AN 
] AUS 
IERR@<variable alphanumér ique> 


Ces sept nouvelles instructions remédient à toutes les insuffisances du 
lecteur de disquette, Vous pouvez maintenant construire des programmes 
pratiques et sans erreur, sans avoir à recourir à toute sorte d'astuces. 
Nous vous fournissons un listing assembleur ainsi qu'un chargeur Basic. 
Voyez au chapitre 5,2 comment calculer l'adresse à laquelle doit figurer 
l'extension, La longueur de cette routine est de 8297 = 633 octets. 
Normalement (c'est-à-dire pour un programme sans l'instruction SYMBOL 
AFTER), vous pouvez utiliser 893E0 comme adresse de base, 


Comme vous pouvez voir d’après le programme machine comment le problème a 
été précisément résolu, nous n'expliquerons ici que le principe suivant 
lequel la gestion de fichier a été réalisée, 


D.3,1 EXPLICATION DU PROGRAMME MACHINE 


Si nous voulons avoir un fichier relatif, celui-ci doit d'abord être 
“créé”. Nous créons d'abord à cet effet un fichier séquentiel de la 
longueur voulue, Nous réservons ainsi Sur la disquette la place voulue et 
occupons le nombre nécessaire de blocs (voyez également à ce sujet le 
chapitre 2), Les blocs occupés sont enregistrés dans le catalogue de la 
disquette, avec une entrée du catalogue par bloc de 16Koctets, Lorsque 
nous ouvrons maintenant notre fichier relatif, l'instruction IINIT,RL 
détermine quels blocs sont occupés par le fichier. Tous les numéros de 
bloc sont sauvegardés (1 bloc est constitué de deux secteurs 
consécutifs), Cette table est la base de la gestion de fichiers relatifs 
car on ne pourrait pas sinon accéder librement aux différents 
enregistrements, La longueur d'enregistrement est en outre sauvegardée 
Séparément mais attention: la routine ne contrôle pas si la longueur 
d'enregistrement est vraiment une puissance de deux. Même si vous ouvrez 
un fichier relatif qui a la même longueur d'enregistrement qu’un autre 
fichier ouvert auparavant, l'instruction INIT doit ABSOLUMENT suivre 
immédiatement l'instruction OPENIN car sinon ce sont les anclens numéros 
de bloc qui restent en mémoire! 


À partir des numéros de bloc on peut alors chaque fois calculer le 


secteur à appeler, grâce à l'instruction IRECORD, La routine est 
programmée de façon à ce qu’un secteur ne soit chargé que si c'est 
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absolument nécessaire, Il se peut en effet que ce secteur figure déjà en 
mémoire; cela sera notamment le cas si vous lisez tous les 
enregistrements du premier au dernier. Dans ce cas, notre méthode 
permettra donc de gagner beaucoup de temps, 11 faut en outre, avant de 
lire un secteur, déterminer si le secteur se trouvant actuellement en 
mémoire à été écrit avec IPUT, Si c'est le cas, l'ancien secteur sera 
d'abord sauvegardé avant qu’un nouveau ne soit chargé. 


Avec l'instruction IPUT, toutes les variables alphanumériques indiquées 
sont copiées dans le buffer de secteur mais avec l’Instruction IGET les 
pointeurs des variables alphanumériques sont simplement détournés vers le 
buffer de secteur et leur longueur est modifiée. 


Voilà donc brièvement le principe de base qui est réalisé dans cette 
routine. Nous avons opté pour les instructions RSX parce qu'elles sont un 
peu plus faciles à manipuler et qu’elles sont en même temps plus 
parlantes que des CALLs, De cette façon vous n'avez (presque) pas non 
plus à vous préoccuper de la zone mémoire dans laquelle est située la 
routine, 


“1190 


0464: 


RSXON: 


RSX: 


TABLE: 


KERNAL : 
RECORD: 


AO: 
A1: 


#8000 


#B900 

AF 

A, (#DE01) 
(VER), A 
AF 

#B90C 
DE, 0 

A, (VER) 
#71 
Z,0464 


(AO+1),HL 
HL, TABU2 
(A1+1),HL 
(A2+1),HL 
RSXON 

HL, #BDBE 
(AO+1),HL 
HL, #B0C1 
(A1+1),HL 
(A2+1),HL 
BC,RSX 
HL, KERNAL 
#BCD1 


TABLE 
RECORD 
GET 
PUT 
INIT 
SET 
RESET 
GETTXT 


*RECOR" 
"D" + #80 

A (ne Hdi be 
dl do El Des 
NE Miel it Ve 
"A","N"+#80 
ee à 
sd Abel Dee da 
0 


4 


01 

NZ 

D, (IX+1) 

E, (1%) 

HL, (RECLEN) 


. #BDBF 


DE, 512 
#BDC] 
(SECNR),HL 
(OFFSET),DE 


+#80 
+#80 
,"T"+#80 


+#80 
+#80 


{Et 151: 


; ROM ENABLE 


: VERSION 
: RANGER 


: RESTORE 
: OFFSET 


: 464, OK 


; MULTIPLICATION 


. EXTENSIONS 
: 4 OCT.RAM POUR SYSTEME 
: INTEGRER EXTENSIONS 


; ADRESSE DES MOTS INSTR. 


. DFTFRMINER LONGUEUR 
; ACTIVER 

: DESACTIVER 

: RETIRE TEXTE 


. FIN TABLE 
: MEMOIRE POUR KERNAL 


. 1 PARAMETRE 
: MAUVAIS NOMBRE 
: RETIRE ENREGISTREMENT# 


: RECORD LENGTH 

: HL=HL#DE 

: LONGUEUR D'UN SECTEUR 
: HL=HL/DE -- DE=REST 

: RANGE NUMERO SECTEUR 
: RANGER DECALAGE 


560 
9/0 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
7/0 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


A2: 


940 ; | 
: SAUVEGARDE DU BLOC 


950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


SAVE: 


1110 ; 


1120 
1130 
1140 
1150 


GET: 


PUT: 
GETPUT: 


DEFB 
DEFW 
RET 


LD 
OR 


A 

(POINTER), A 

(POINTER 1) 
E, (OLDSEC) 

HL, DE 

2 

SAVE 

HL, (SECNR) 

(OLDSEC),HL 

H 

L 

AF 

DE, (#A79B) 

HL,DE 

A,(HL) 

L,À 

H, 0 

HL, HL 

AF 

DE, 0 

HL, DE 

DE,9 

#BDC1 

HL 

HL 

A,L 

(TRACK), A 

À E 

A,#41 

(SECTOR), A 

D,L 

C,A 

A, (#A708) 

E A 


HL,(#A751) 
#DF 
TAB] 


A, (REAURI) 
A 


Z 

HL, (TRACK) 

D,L 

C,H 

A, (#A708) 
À 


HL, (#A751) 
#DF 
TAB2 

A 
(REAWRI),A 


À 


r ire 


: A: =0 
: POINTEUR SUR ZERO 


. MEME SECTEUR? 

: SI ZERO DANS BUFFER 

: SAUVER D'ABORD BUFFER 
: RETIRE No SECTEUR 

: RANGER SECTEUR 

12 


12 
: RANGE CARRY 

: TABLE BLOCS 

: RETIRE No BLOC 
: No BLOC 


: HL:=No BLOC 
we 

: RETIRE CARRY 
: AJOUTE CARRY 


: HL: =HL/DE --- DE:=REST 
+1 
til = 
: TRACK 
: RANGER 

: SECTOR 

: AJOUTER DECALAGE 
: RANGER SECTEUR 

: D: = TRACK 

; C: = SECTOR 

: DRIVE POUR OPENIN 


TRACK 


: PNTFR POUR BUFFER INPUT 
: CALL #C666, CHARGE 
; SECTEUR 


: FLAG READ/WRITE 


: PAS NÉCESSAIRE ECRIRE 
: RETIRER TRACK/SECTOR 
: D: = TRACK 

; C: = SECTOR 

: DRIVE POUR OPENTN 

: E: =DRIVE 

;: INPUT-BUFFER 


; CALL #C64E ECR. SECTEUR 
; ACCU: =0 
: RESTAURER FLAG 


: O=GET 


: 1I=PUT 
: TESTÉ NOMBRE PARAMETRES 


1290 LO: 


1690 LOOP: 
0 


DER), A 


HL, (#A751) 
DE, (OFFSET) 
HL, DE 
DE, (POINTER) 
HL,DE 


DE, HL 


A, (ORDER) 
A 

NZ, PUTV 
A, (DE) 
13 

2, END 

B 


(HL),0 

HL, (POINTER) 
D,0 

E,B 

DE 


HL, DE 
(POINTER), HL 
HU 


BC 
LO 


HL 

C,(HL) 
, Ô 

HL 
E,(HL) 

HL 

D,(HL) 


LL 153 


.=0 => ALORS FIN 

: NOMBRE DE VARIABLES(S!) 
: ACCU« 2 

: IX DANS 

: HL 


;HL + NOMBRE»“2-1 = 
; POINTEUR DANS PARAMETRE 


; ORDRE # 
;: RANGER 
: RANGER 
: POINTEUR POUR OPENIN 


; AJOUTER DECALAGE 
: AJOUTER POINTEUR 


s DE: =POINTEUR DS BUFFFR 
: RETIRER ADRESSE 


; ADRESSE VARIABLE DANS BC 


. PUTer VARIABLES 
: COMPTEUR SUR O 

: RETIRE CARACTERE 
: CR=FIN? 


; AUGMENTER LONGUEUR 


: ERREUR -- TROP LONG --) 
: CHAINE VIDE 


: RANGER LONGUEUR 
;DE:=ADRESSE DE DEPART 
:OCTFT FAIBLE 

.OCTET FORT 

: E: = LONGUEUR 

: +1 POUR CR 

: NOUVEAU POINTEUR 

: POINTEUR SUR TABLE 


; PARAMETRES 
s PROCHAINE VARIABLE 


: RETIRE ADRESSE VARIABLE 
; NOMBRE CARACIERES 


: OCTET FAIRLE ADRESSE 
: ET OCTET FORT 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2360 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


EN]: 


DE,HL 
DE 
A, C 

À 

BC 
Z,ENI 


DE, HL 
(HL),13 
DE 


DE 
HL, (POINTER) 
HL,DE 
(POINTER), HL 
A 1 
(REAURI), A 
LOOP 


:INITIALISE FICHIER 
2000 ; 


INIT: 


L10: 
L11: 


2300 ; 


2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 


RECLEN: 


SECNR: 


OFFSET: 
REAWRI: 
OLDSEC: 


TRACK: 


SECTOR: 


TAB1: 
TAB2: 


POINTE: 


o1 
NZ 
H,(IX+1) 
L,(1X) 

H 
L 
Z, SAVE 
(RECLEN),HL 
HU, #FFFF 
(OLDSEC),HL 
DE, (#A79B) 
HL, #A719 
B,16 
A, (HL) 


DE), A 
E 

HL. 

Li1 

HL, (#A729) 
BC, #80 

HL, BC 
(#A729),HL 
HL, 0000 
(#A768),HL 
#DF 
GETCHAR 
L10 


A 
2 
( 
D 


64 
0 

0 

0 

#FFFF 

0 

0 

#66, #C6,7 


#4E #C6,7 
0 
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: HL: = STRING . 
: RETIRE ADRESSE BUFFER 


: RANGE NOBMRE 
: FIN SI CHAINE VIDE 
: DECALE CARACT.DS BUFFER 


; CR=SYMBOLE SEPARATION 
;: +1 POUR CARACTERE SEPAR 


: NOUVEAU POINTEUR 


. RANGER QUE ECRIT 
: FERMER BOUCLE 


. 1 PARAMETRE ? 
: MAUVAIS NOMBRE PARAM. 


: DÉTERMINER LONGUEUR 


: INSTRUCTION INIT,O 
: RANGER 


:ANNULER FLAG 
: ADRESSE BUFFER OPENOUT 
: TABLF BLOCS 


: DERNIER BLOC 


. PROCHAIN BLOC 


; VIDER BUFFER 
: CAIL #CF64 DISC IN CHAR 


LONGUEUR ENREG.1-512 
: SECTORNR 

. OFFSET DS SECTEUR 

: FLAG 1=ECRIT, 0=LU 

: DERNIER SECTEUR 

: PISTE DU SECTEUR 

: SECTEUR DU SECTEUR 

: ADRESSE #C666 DANS ROM DISQUE 
: ECRIRE SECTEUR 

: POINTEUR DANS BUFFFR 


2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
#690 
2 700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 


ORDER: DEFB 0 
GETCHA: DEFB #64, #CF,7 .CF64 GET CHAR DE 
BUFFER OPENIN 
: ROUTINE D'INTERCEPTION DES ERREURS 
DOME DE MED NE DEN DE DE DEDE DU NE UD DE DE 0 UE 26 D 6 M D M 6 6 6 
: (C) 1985 BY DATA BECKER GMBH 
: JS 22/3/1985 
JP SET : FIXE POINTEUR 
JP GETIXT : RETIRE CHAINE 
JP  RESET : RESTAURE VECTEURS 
SET: LD A, (VER) 
CP #71 . 664? 
JR NZ, NO] 
LD  A,4#C3 
LD  (#ACO1),A : READY 
NO1: LD A, #C3 
LD  (#BB5A),A : OUT CHAR 
LD  (#BB06),A KM WAIT CHAR 
LD  (#BC9B),A : CAS CATALOG 
LD  A,(VER) : VERSION 
CP #71 
JR NZ, N03 . 664 
LD  HL,READYMODE 
LD  (#AC02),HL : DETOURNER READY 
NO3: LD  HL, (#BB5B) 
LD  (VEKA4+1),HL 
LD HE, OUTCHK : DETOURNER OUT CHAR 
LD  (#B85B),HL : DETOURNER OUT CHAR 
LD  HL,(#BB07) : RANGER ANCIEN VECTEUR 
LD  (VEKS+1),HL 
LD  HL,KWC 
LD  (#BBO7),HL . DETOURNER KM WAIT CHAR 
LD  HL,(#BC9C) : ANCIEN VECTEUR 
LD  (VEK3),HL 
LD  HL,CAT 
LD  {#BC9C),HL : CAS CATALOG 
RET 
: ROUTINE TESTE, SI CARACTERE VIENT DU LECTEUR DE DISQUETTE 
OUTCHK: EX  (SP),HL RETIRE ADRESSE RETOUR 
PUSH AF : SAUVE ACCU 
LD  A,H : TESTE OCTET FORT 
CP  #CB : VIENT DE ROM DISQUE ? 
JR NZ, NEIN : NON 
LD A1 
LD  (TESTERR),A : FIXER FLAG 
POP  AF :NE PAS SORTIR CARACTERE 
PUSH HL : SAUVE HL 
LD  HL, (HELP) : RETIRE POINTEUR BUFFER 
CP 10 : CARACTERE EST LF 
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JR 
:CR AUTORISE 
LD 


N1: 
NOT : 


SUPRES: 


NEIN: 


N12: 
VEKA: 
NEINAL : 


DEFB 


Z, NOT 
COMME SYMBOLE DE SEPARATION 


(HL},A 
Hl 


A,L 
40+BUFFER&# 
NZ, NI 

HL 
(HELP), HL 
HL 

Af 

AF 


(TESTERR),A 
NZ, SUPRFSS 
HL 

HU, BUFFER 
(HELP), HI 
HU 

AF 

(SP), HL 
#CF,0,#94 


A, (TESTERR) 
A 


NZ, SUPRESS 
AF 

(SP), HL 
#CF,0,#94 


: ROUTINE POUR MODE READY 


READYM: LD 
OR 
RET 
XOR 
LD 
LD 
LD 
LD 
JP 


A, (TESTFRR) 
A 
Z 


À 
(TESTERR), A 
HL, BUFFER 
(HELP), HL 
E,18 

#CA94 


FF 


: MEMOIRE CARACTERE 


: 40 CARACTERES? 
: 40 CARACTERES MAXI 


; ADRESSE RETOUR 


: PAS DE SORTIE 


: RETIRE CARACTERE 


:RST 2 


: RETIRE CARACTERE 


'RST 9 


. FIXE FLAGS 
: PAS D'ERREUR 


: DETOURNEMENT POUR #BB06 KM WAIT CHAR 
: VALEUR DEFAUT POUR ERREUR ELECTRONIQUE 


: C=CANCEL 


KW : PUSH 


AF 


MUR E CS 


; SAUVE ACCU 


3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
190 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 


VEKS5: 
DEFAUL : 


GETTXT, 


L'A: 


SLOOP : 


LD 
CP 
RET 


LD 


A, (TESTERR) 
À 


N 

A 

#CF, #3C, #9A 
4 


(TESTERR),A 
A, La 


E,2 


3 
NZ, SLOOP 
A,C 
(DE), A 
HI. 

DE,HL 


CHLYSE 
HL 


Z,DEFAULT 
F 


. FIXE FLAGS 
: PAS DEFAUT-C 


: DEFAUT 


; ROUTINE POUR RESTITUER TEXTE ERREUR 


1 PARAMETRE ? 

: MAUVAIS NOMBRE PARAM. 
: OCTET FAIBLE 

: OCTET FORT 

: COMPT EUR 


; CARRIAGE RETURN? 


. TROUVE 1ER CARACT.TEXTE 
: RANGER 
: MOINS UN 


; CARRIAGE RETURN? 


: RANGER LONGUEUR 
: ADRESSE TEXTE 


. OCTET FAIBLE 
:OCTET FORT 


» Jin ier ss 


4030 


4040 ; 
; RESTAURER LES POINTEURS 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


RESET: 


NO2: 


4250 ; 


4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4455 
4456 
4460 
4470 
4480 


A, (VER) 
#71 
NZ, NO2 

A, #C9 
(#ACO1),A 
À, #CF 


(#BB5A), A 
(#BB06),A 
À, #DF 

(#BC9B),A 


HL, (VEK4+1) 
(#BB5B),HL 
HL, (VEK5+1) 
(#BBO7),HL 
HL, #A88B 

(#BC9C),HL 


AF 
HL 
RESET 
HL 
AF 
#BC9B 
HL 
AF 


: "SE 


AF 
HL 


: POINTEURS ET MEMOIRE AUXILIAIRE 


HOMME DE DE DE DE D D D D DE M M De De De DE D D De De D D 


VEK3: 


DEFW 
TESTER: DEFB 
VER: DEFB 
HELP: DEFW 
TABU1: DFFB 
TABU2: DEFB 
BUFFER: DEFM 
DEFB 
DEFS 


0 

#0 

0 

BUFFER 

#77, 400, #FD 
#B0, #00, #FD 
Liu < LL 

#0D 

40-3 
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;s NUMERO DE VERSION 


:RST 2 

: OUT CHAR 

: KM WAIT CHAR 
: RST 38H 

: CAS CATALOG 
: OUT CHAR 


:KM WAIT CHAR 


. CAS CATALOG 


: SAUVE REGISTRES 
:RESTAURE VALEURS ORIGIN 


: CAS CATALOG 


: ET RECONNECTER 
: RESTAURE REGISTRES 


: VFCTEUR OUTCHAR 


. CR 
: BUFFER 40 CARACTERES 


VOD DD DE D 6 D D DE ED DE DE D DE D D ED 6 UE DE DE D DE D 6 D DE DE EE 6 DE EE dE 


‘#æx Chargeur BASIC pour instructions RSX ### 
l#ææx JS 5/5/1985 (c) by DATA BECKER GmbH ## 


D D D 4 Dé D D D DE D DE D D DE D EN D D D D D D D 6 6 DE 6 6 DU 0 D D D 4 de 


DEFINT b-2 : DEFREAL 5 ,i 
adresse = &8000 ‘Adresse de depart de la routine 


DATA CD,00,B9,F5,3A,01,DE,32,05,83,F1,CD,0C,B9,11,00 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,3A,05,83,FE,71,28,1C,3E,DF,32,8C, 80, 32, 92,80 
32,CB,80,21,08,83,22,8D,80,21,0B,83,22,93,80,22 
CC, 80,18,0F,21,BE,BD,22,8D,80,21,C1,BD,22,93,80 
22,CC,80,01,4C,80,21,7C,80,C3,D01,BC,63,80,C3,80 
80,C3,00,81,C3,04,81,C3,7E,81,C3,DB,81,C3,C4,82 
C3,98,82,52,45,43,4F,52,C4,47,45,D4,50,55,D4, 49 
4E,49,D4,41,CE,41,55,03,45,52,D2,00,FC,A6,4C,80 
FE,01,C0,00,56,01,00,5E,00,2A,8B,81,CD,BE,8D,11 
00,02,CD,C1,BD,22,B0,81,E0,53,8F,81,AF,32,CC,81 
32, CD,81,ED,58,C2,81,E0,52,C8,CD,E7,80,2A,BD,81 
22,C2,81,CB,1C,CB,10,F5,ED,58,9B,A7,19,7E,6F,26 
00,29,F1,11,00,00,E0,5A,11,09,00,CD,C1,BD,23,23 
7D,32,C4,81,7B,C6,41,32,C5,81,55,4F,3A,08,A7,5F 
2A 51,A7,DF,C6,81,C9,3A,C1,81,B7,C8,2A,C4,81,55 
4C,3A,08,A7,5F,2A,51,A7,DF,C9,81,AF,32,C1,81,C9 
0E,00,18,02,0E,01,B7,C8,47,87,D0,E5,E1,85,6F,7C 
CE,00,67,2B,79,32,CE,81,E5,2A,51,A7,E0,5B,8BF,81 
19: ED, 5B,CC,81,19,EB,E1,C5,46,8B,4E,2B,F5,05,C5 
3A,CE,81,B7,20,24,06,00,1A,FE,0D,28,06,04,28,03 
13,18,FS,E1,70,D1,23,73,23,72,2A,CC,81,16,00,58 
13,19,22,CC,81,E1,C1,10,BF,C9,E1,4E,06,00,23,5E 
23,56,EB,D1,79,B7,C5,28,02,FD,B0,EB,36,00,D1,13 
2A, CC,81,19,22,CC,81,3E,01,32,C1,81,18,07,FE,01 
CO,DD,66,01,00,6E,00,7C,B5,CA,Ë7,80,22,BB,81,21 
FF. FF,22,C2,81,ED,58,98,A7,21,19,A7,06,10,7E,B7 
C8:12,13,23,10,F8,2A,29,A7,01,80,00,09,22,29,A7 
21,00,00,22,68,A7,DF,CF,81,18,DE,40,00,00,00,00 
00,00,FF,FF,00,00,66,C6,07,4E,C6,07,00,00,00,64 
CF,07,C3,DB,81,C3,9B,82,C3,C4,82,3A,05,83,FE,71 
20,05.3E,C3,32,01,AC,3E, C3, 32, 5A,BB, 32,06, 8B, 32 
9B,BC,3A,05,83,FE,71,20,06,21,74,82,22,02,AC,2A 


LES 


410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
9 30 
540 
5 90 
560 
970 
980 
590 
600 
610 
620 
630 
640 
650 
660 
+" 

670 
680 
690 
700 
710 
720 
730 
740 
7/50 
760 
170 
780 
790 
800 
810 
820 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


5B,BB,22,67,82,21,24,82,22,5B,BB,2A,07,BB,22,91 
82,21,88,82,22,07,BB,2A,9C,BC,22,02,83,21,F0,82 
22,9C,BC,C9,E3,F5,7C,FE,CB,20,1E,3E,01,32,04,83 
F1,E5,2A,06,83,FF,0A,28,0B,77,23,70,FE,36,20,01 
2B,22,06,83,E1,F5,F1,E3,C9,3A,05,83,FE,71,28,19 
3A,04,83,B7,28,01,3D,32,04,83,20,EA,E5,21,0E,83 
22,06,83,E1,F1,E3,CF,00,94,3A 04,83 ,B7,20,D7,F1 
E3,CF,00,94,3A,04,83,B7,C8,AF,32,04,83,21,0E,83 
22,06,83,1E,12,C3,94,CA,F5,3A,04,83,B7,20,04 F1 
CF,3C,9A,3E,04,32,04,83,3E,43,C9,1E,0?,FE,01,C0 
09,5E,00,00,56,01,0E,FF,21,0F,83,7E,FE,00,23,28 
FA,2B,E5,2B,0C,23,7E,FE,0D,20,F9,79,12,E1,EB, 23 
73,23,72,C9,3A,05,83,FE,71,20,05,3E,C9, 32,01, AC 
3E,CF,32,5A,BB,32,06,BB,3E,DF,32,9B,BC,2A,67,82 
22,5B,BB,2A,91,82,22,07,BB,21,8B,A8,22,9C,BC,C9 
F5,E5,CD,C4,82,E1,F1,CD,98,8C,E5,F5,CD,DB,81,F1 
E1,C9,8B,A8,00,71,0F,83,77,0D,FD,BO,DD,FD,0D, 4C 
20,20,20,20,20,20,20,2F,20,20,20,20,6F,6F,74,20 
66,6F,75,6F,64,00 


FOR i=0 TO 8325 
READ d$ 
POKE itadresse, VAL ("&"+D$) 
s=5s+VAL("&"+D$) 


NEXT 


IF s<>89911 THEN PRINT CHR$(7)"#”« Erreur en Datas !! 


END 


‘Adapter a la zone memoire 


FOR i=adresse TO adresse+8&326 
p=PEFK(i) 


LE 
NEXT 


p>8&7F AND p<&84 THEN 780 


PRINT CHR$S(7) : INPUT'"'Nom du fichier :",a$ 


SAVE 
E ND 


a$,b,adresse,&329 


IF PEEK(1+1)>8&7F AND PEEK(I+1)<&84 THEN 730 
ad=PEEK(i-1) + p*256 : ad=UNT(ad) - &8000 + adresse 


POKE 
POKE 
GOTO 


i-1,8FF AND UNT(ad) 'octet faible 
i,&FF AND INT(ad/256) 'octet fort 
730 
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LE 


10 D DE DEN 46 DE De DE D D D 6 D De de 0e De D 6 6 D DD D DE DE DE D dé D 
20 '  DEMONSTRATION FICHIERS RELATIFS 
30 De 0e dde D 6 Ne De 46 6 De de De 6 0 46 46 dé dé De Dé 6 D D D 6 0 De Dé DE dé 4 
40 : 
50 MODE 2 

0 ' 


70 "RESPECTEZ L'ORDRE DES INSTRUCTIONS SUIVANTES Y COMPRIS 
80 ‘DANS VOS PROPRES PROGRAMMES !! 


100 OPENOUT"DUMMY": MEMORY HIMEM-1:CLOSEOUT 

110 MEMORY &7FFF 'PROTEGER ROUTINE 

120 'NOTRE ROUTINE D'EXTENSION DOIT A CET ENDROIT 
130 ‘SOIT SE TROUVER DEJA EN MEMOIRE, EN &8000 
140 'SOIT ETRE GENEREE EN &8000 

150 "ET ETRE SAUVEGARDEE SUR DISQUETTE SOUS LE NOM 
160 ‘'"DISK.BIN". LA LIGNE SUIVANTE SERA ALORS: 
170 LOAD"O:RSX1" 

180 CALL &8000 ‘ACTIVER EXTENSIONS 

190 ‘ 

200 PRINT"CREER FICHIER" 
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210 
220 
230 
240 
250 
260 
270 
280 


290 
300 
310 
320 
330 
340 
350 


370 
380 


OPENOUT"FICHIER.REL" 

FOR 1=1 T0 600 ‘600 ENREGISTREMENTS 
PRINT#9,STRING$S(32,32); ‘DE 32 CARACTERES 

NEXT 

CLOSEOUT ‘FICHIER CREE 


PRINT"'ECRIRE DONNEES" 
OPENIN"FICHIER.REL" 'OUVRIR FICHIER EN LECTURE ET ECRITU 


HINIT,32 'INITIALISE FICHIER REL 

FOR 1-0 TO 599 
IRECORD, I 
AS=STRS(I):B$S=STRS(I"2):CS=STRS(SQR(I)) 
IPUT,@AS,@BS,@CS ‘SAUVE DONNFFS 

NEXT 


LIRE MAINTENANT LES 600 VALEURS DF FACON SEQUENTIELLE 
PRINT"'LECTURE SEQUENTIELLE" 


41,102 


390 FOR I=0 TO 599 

400  IRECORD, I 

410  IGET,@AS,@BS,@CS 

420 PRINT I,A$;" ";,BS;" “CS 
430 NEXT 

440 CLOSEIN 

450 ‘ 

460 TIRER MAINTENANT 100 FOIS UN ENREGISTREMENT AU HASARD 
470 

480 OPENIN"FICHIER.REL" 

490 IINIT, 32 

500 PRINT"'TIRER AU HASARD" 

510 FOR I=1 TO 100 

520  X=RND#600-1 

530  IRECORD, X 

540  IGET,CAS,@BS, @CS$ 

550 PRINT I,A$;:" ",BS;" ",CS 
560 NEXT 

570 CLOSEIN 
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5.4 LE PROGRAMME DE GESTION DE FICHIER 


Le chaos règne dans votre collection de disques ou vous ne savez plus 
dans quel classeur se trouve le plus précieux timbre de votre collection? 
Alors ce programme de gestion de fichier est fait pour vous. 


Le programme de gestion de fichier que nous vous fournissons est 
relativement long mais cela ne doit pas vous décourager de le taper car 
il vous offre des possibilités insoupçonnées, 11 n'est pas aussi puissant 
que DATAMAT mais il suffira certainement de par sa vitesse de travail et 
sa souplesse d'utilisation pour de nombreuses applications. 

Peu importe donc que vous vouliez gérer vos adresses ou vos disques car 
aucun masque pré-défini d'entrée ne vous est imposé. Vous disposez de 
Jusqu'à 10 champs de données pour vos enregistrements et vous pouvez 
occuper ces champs de données à votre guise, Le programme est conçu de 
sorte que vous puissiez gérer jusqu'à 200 enregistrements, Les données ne 
Sont pas sauvegardées de façon relative mais de façon séquentielle, 
toutes les données étant chargées en mémoire, Nous avons opté pour cette 
Solution entre autre par égard pour le lecteur/utilisateur car le 
programme aurait été Sinon encore plus 10ong, 


Nous avons intégré les accents français mais ceux-ci ne participent pas 
correctement au tri(!) car le travail fourni serait sinon sans rapport 
avec l'effet recherché. Plusieurs touches ont été échangées, Si ce 
nouveau clavier vous gêne, vous pouvez supprimer les lignes 350-440, 11 
est nécessaire que la routine d’'interception des erreurs du chapitre 5.2 
figure également sur la disquette sur laquelle vous Sauvegarderez le 
programme de gestion de fichier. Générez cette routine à partir de 
l'adresse &AOBO, comme nous vous l'expliquons au chapitre 5,2 et 
Sauvegardez cette routine sous le nom “error,bin”. C'est tout ce que vous 
avez à faire. 


Après que le programme ait été tapé et que vous l'ayez sauvegardé au 
moins une fois sur dsquette (mieux vaut le sauvegarder plusieurs fois 
Sur plusieurs disquettes) ainsi que le fichier error,bin, vous pouvez 
lancer le programme. Vous obtenez tout d'abord le menu à l'écran. Vous 
pouvez maintenant sélectionner les différents points du menu à l'aide des 
touches curseur, en validant votre choix avec la touche ENTER; c'est 
alors le point du menu apparaissant en vidéo inversée qui sera exécuté. 
Les données sont sauvegardées sous USER 1 de sorte que les données sont 
nettement séparées des programmes et données normaux, Pour examiner la 
liste de vos fichiers, vous pouvez sélectionner le point du menu Afficher 


LE 05e 


contenu disquette. Seuls les fichiers sous USER 1 vous seront alors 
montrés, normalement donc vos fichiers. Faites-le et vous verrez que la 
place libre sur la disquette est également indiquée. En actionnant une 
touche quelconque, vous êtes alors ramené au menu principal. 


Créons comme exemple un fichier que nous avons déjà pris comme exemple au 
chapitre 5,3, Nous créerons un agenda téléphonique avec trois champs de 
données : 


Nom 
Prénom 
Téléphone 


Nous pouvons facilement augmenter encore ce fichier de trois autres 
champs de données en ajoutant par exemple les champs de données: 


Code postal 
Localité 
Rue 


Sélectionnez le point du menu Créer/modifier masque et créons notre 
masque avec six champs de données, Les entrées sont validées comme 
toujours avec ENTER, Lorsque vous voulez modifier un champ de données, 
vous pouvez déplacer le curseur vers le haut avec la touche curseur haut 
et réécrire sur le champ de données correspondant, La correction de 
lettres isolées n'est pas non plus possible ici, pour des raisons tenant 
au Système d'exploitation, vous devez donc réécrire entièrement le champ 
correspondant, Le curseur saute toujours, après l'entrée, au champ 
suivant immédiatement le dernier champ. Lorsque vous voulez quitter le 
point du menu Créer/modifier masque, appuyez Simultanément sur les 
touches CTRL et ENTER. Vous vous retrouverez instantanément dans le menu 
principal. Dès que vous avez entré un enregistrement, Vous ne pouvez que 
modifier le masque, mais pas ajouter de données supplémentaires! 


Après que vous ayez créé le masque, vous devez choisir le point du menu 
Entrer/modifier données, Vous obtenez alors le masque d'entrée en mode 80 
colonnes, On vous indique en haut à droite la longueur maximale de vos 
champs de données pour qu'une ligne ne soit pas dépassée, 

Le champ dans lequel vous êtes en train d'écrire est systématiquement 
affiché en vidéo inversée, Entrez d’abord vos propres données, Lorsque 
vous aurez fini, le masque d'entrée sera à nouveau vidé et vous verrez en 
bas à gauche qu’un enregistrement a été sauvegardé. 
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Vous vous êtes peut-être déjà étonné de découvrir en bas à droite de 
l'écran un affichage d'état, Vous en concluez logiquement que ce qui ne 
doit pas être n’est pas possible et qu'il doit donc y avoir encore un 
autre état. 11 s’agit ici de l’état de correction. Vous voyez dans la 
fenêtre du milieu que le fait d’actionner simultanément les touches ENTER 
et CTRL entraîne une modification de l’état d'erreur, Essayez donc. 


Ce n’est déjà plus le mot Entrée que vous lisez sous le mot “Etat” mais 
Correction. Vous voyez d'autre part apparaître: 


** Remplissez le masque avec le critère de recherche ** 


Cela à la signification suivante: lorsque vous voulez modifier un 
enregistrement, vous devez indiquer au programme de quel enregistrement 
il s’agit. Vous disposez pour cela du masque d'entrée tout entier; mais 
ne craignez rien, vous n'êtes pas obligé de remplir le masque entier de 
données, Entrez par exemple votre prénom dans le champ “Prénom”, vous 
pouvez faire défiler les autres champs simplement avc la touche ENTER, 
Dès que vous avez terminé tous les champs avec ENTER, vous vous trouvez à 
nouveau dans le mode d'entrée, Mais s'il y a par exemple dans votre 
fichier plus d’une personne portant le même prénom, il se peut qu'un 
autre enregistrement vous soit proposé à la correction car seul le 
premier enregistrement correspondant à votre description a été pris en 
compte. 

Supposez qu'il y ait parmi vos amis deux Pierre et que votre femme vous 
explique que Pierre a maintenant un nouveau numéro de téléphone, De quel 
Pierre s'agit-il donc? Si on vous indique cependant l’ancien numéro que 
vous connaissiez par coeur, vous pouvez identifier sans peine le “bon” 
Pierre. De même que vous avez besoin dans un tel cas de plus 
d'informations, de même vous faut-il fournir également plus 
d'informations à votre ordinateur de façon à exclure toute confusion, 
Dans notre exemple, il serait donc plus sensé d'entrer également le 
numéro de téléphone dans le champ de données prévu à cet effet pour 
éviter ainsi tout problème. C’est ce qu’on appelle une COMPARAISON ET qui 
est alors exécutée, c'est-à-dire que toutes les indications fournies 
doivent correspondre, Si vous faites rechercher un enregistrement qui 
n'existe pas, vous obtenez le message d'erreur: 


** Cet enregistrement n'existe pas ** 


Vous vous trouvez alors toujours en mode de correction et vous pouvez 
lancer une autre tentative. 


"ALI IO Pr 


Vous pouvez sortir du mode de correction à tout moment avec CTRL/ENTER; 
vous revenez alors au mode d'entrée et la correction n'est pas 
entreprise!! 

Vous pouvez sortir à tout moment du point de menu Entrée/correction en 
entrant fin dans n'importe quel champ de données, 


Mais venons-en maintenant brièvement aux autres points du menu: 


Charger données et Sauver données 

Les données entrées ainsi que le masque sont chargées ou Sauvées, Vous 
pouvez indiquer un nom de fichier qui ne doit pas comporter plus de 8 
caractères, Vous revenez au menu principal avec CTRL/ENTER, 


Supprimer données 

Vous pouvez supprimer un enregistrement, A cet effet, vous pouvez le 
faire d'abord rechercher comme dans le point du programme Créer/modifier; 
avant qu'il ne soit supprimé, vous devez confirmer votre intention après 
une question de sécurité. 


Sortir données 

Vous pouvez choisir si la sortie doit s'effectuer sur l'imprimante (I) ou 
sur l'écran (E),. Après que vous ayez actionné soit la touche "E” soit la 
touche “1”, vous pouvez sélectionner quels champs de données doivent étre 
sortis; c'est intéressant pour sortir des listes qui ne doivent pas 
contenir tous les champs de données, Si un champ de données ne doit pas 
etre sorti, appuyez simplement sur la touche ENTER pour Ile champ 
correspondant, Sinon marquez le champ avec un caractère quelconque; jil 
suffit donc que vous appuyiez ESPACE/ENTER pour que le champ soit sorti. 


Afficher contenu disquette 
Le catalogue de la disquette est affiché sur l'écran, 


Fin du programme 
Ne choisissez ce point du programme qu'après que vous ayez déja 
sauvegardé sur disquette vos données et éventuellement les corrections 


que Vous y avez apportées; le programme ne vous demande pas de 
confirmation de sécurité. 


Tout supprimer 


Toutes les données en mémoire sont supprimées, le programme est à nouveau 
démarré. 
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1OQ ‘ump up dé de 6 de D DE DE DE OU CU UD UD DD DE EEE DE 

20 ‘'####» (C) 1985 by DATA BECKER ua u ue ae ae ee ee 6e 0 0e 

30 ‘'#xwwxux Auteur : Joerg Schieb mm du qe dede DE DE DE 6 4e 6 

40 ‘'n#nsænx Gestion de fichier mt du de 6 EEE MEME DE MEME DE M DEN 

SO ‘mou dé 06 64 De D 4 DE DE DE He DE DE CH CU DE UE CU DE DD UE HE D EE DE DE DE 0 

60 

70 ON ERROR GOTO 3170 

80 SYMBOL AFTER 91 

90 MEMORY &AOBO-1 

100 LOAD "O:error.bin" 

110 CLEAR 

120 DEFINT a-z : active=&AOBO : msg=&AOR3 : desactive=&A0B6 
: ds$="#" : CALL active 

130 ON ERROR GOTO 3170 

140 ON BREAK GOSUB 960 

150 OPENOUT "“dumm'" 
160 MEMORY HIMEM-1 
170 CLOSEOUT 

180 DIM ma$s(20),m$(9 
190 cursorup$=CHRS(2 
200 IUSER, 1 

210 : 

Pr0O'REM Sssssssseser ee Ss ee ess Sn Sen sE==-=23-8 

230 REM Definition des accents francais 

240 REM SSSR SR mm mme mm — 

250 : 

260 DATA 135,91,136,92,137,93,132,123,133,124,134,125,129,12 
6 


.1(20),d$(200,9),da$ 
0):cursordown$=CHRS$S( 


L— 
ND 


Su -Tos 


270 
280 
285 
290 
295 
300 
305 
310 
315 
320 
329 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


102 , 60 , 24 
124 , 204 , 118 , O 
102 , 102 , 60 , 0 
102 , 102 , 63, 0 
126, 96 , 60 , 0 
126 , 96 , 60 , 0 
126, 96 , 60 , 0 
124 : 204 , 118 , 0 
102 , 102 , 63, 0 
24 , 24 , 60 , 0 


FOR i=1 TO 7:READ a,b:KEY a, CHR$(b):NEXT 
SYMBOL 126, 0,0, , 102 , 96 
SYMBOL 123 , 96 , 48 , 120 , 12, 
SYMBOL 124 , 60 102, 60 ; 107 ; 
SYMBOL 125 , 48 , 24 , 102 , 102, 
SYMBOL 91 , 48 , 24 , 60 , 102, 
SYMBOL 92 , 12 , 24 , 60 , 102, 
SYMBOL 93 , 60 , 102 , 60 , 102, 
SYMBOL 94 , 120 , 204 , 120 , 12, 
SYMBOL 95 , 60 , 102 , 0 , 102, 
SYMBOL 96 , 60 , 102 , 24 , 24, 
KEY DEF 29,1,124, 92 

KEY DEF -28,1:123,91 

KEY DEF 26,1,125,93,124 

KEY DEF 24,1,126,94,ASC("#") 

KEY DEF 19,1,58,42 

KEY DEF 17,1,59,43,64 

KEY DEF 18,0,13,13,140 

KEY 140,"#ESCæ"+CHR$(13) 

KEY DEF 71,1,ASC("y"),ASC("Y") 

KEY DEF 43:1,ASC("z") ASC("Z") 
DATA Charger donn\es, Sauver donn\es,Entrer/modifier donn 


\es,Supprimer donn\es,Trier donn\es,Sortir donn\es,Afficher 
contenu disquette,Cr\er/modifier masque,Fin du programme,Tou 


t supprimer, fin 


470 : 

480 i=0Q : WHILE ma$(i)<>"fin" : i=i+1 

490 READ ma$(i) V(i)=LEN(ma$(i))/2 

500 WEND : nmbmask = i-1 

510 STAT=O:INK 0,0 : INK 1,13 : BORDER 0 : 
PEN 1 PEN #1,0 : PAPER #1,1 


PAPER O : 


MODE 1 


520 WINDOW #1,1,40,1,3:CLS #1:LOCATE #1,16,2:PRINT #1,"ME N 


U" 


ne tr 


530 FOR f=1 TO nmbmask 

540 LOCATE 20-1(i1),5+i#2 : PRINT ma$({i) 

550 NEXT 

560 champ=1 : PEN #1,1 

570 PAPER #1,1 : PEN #1,0 

580 WINDOW #1,20-1{(champ}),20+1(champ}),5+champx2, 5+champx2 : 
PRINT #1,ma$(champ) 

590 d$=INKEYS:IF d$="" THEN 590 

600 PAPER #1,0:PEN #1,1:1F d$=cursorup$ THEN PRINT #1,ma$(ch 
amp):champ=champ-1:1F champ=0 THEN champ=nmbmask: GOTO 570 EL 
SE. 570 

610 IF d$=cursordown$ THEN PRINT #1, ma$(champ):champ=champ+1 
:1F champ>nmbmask THEN champ=1:GOTO 570 ELSE 570 

620 IF d$<>CHR$S(13) THEN 590 

630 ON champ GOSUB 1680,1240,2190,2690,2810,2940,1940,2020,1 
880,640:GOTO0 510 

640 RUN 120 ‘Supprime tout 

650 : 

660 REM =======zzs=zsszsssssasszsszz=2=22=ss2ssssss 

6/70 REM Cherche le tableau de cha'‘nes da$ 

680 REM =sss=sssssssse=sesseussssesrenmessses2sesse 

690 : 

700 IF nombre=0 THEN found=0 : RETURN 

710 FOR i=1 TO nombre 

720 FOR i9=-0 TO nombrechamps-1 

730 IF da$(i9)="" THEN 750 

740 IF da$(i9)<>d$(i,i9) THEN 770 

750 NEXT ig9 

760 found=i : RETURN 

770 NEXT :i 

780 found=0 : RETURN 


serie 


790 : 


800 
810 
820 
830 


850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


1060 : 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


IF nombre<2 THEN RETURN 

EVERY 30,0 GOSUB 2870 

FOR i1=1 TO nombre-1 
verzil 


FOR i2=i1+1 TO nombre 
IF d${(i2,champ)<d${ver,champ) THEN ver=i2 


NEXT 


FOR i2=-0 TO nombrechamps-1 
d$=d$(ver,i2) : d$(ver,i2)=d${(il1,i2) : d$(il1l,i2)=d$ 


NEXT 
NEXT 
i=REMAIN(O) 
RETURN 


REM ESSELSL=SSSSs=ssSssSesesssssessssssssss= 
REM Tester si un nom de fichier existe 
REM SR TORRES ——— 


nf=0 : ef=0 : OPENIN fileS+". dat" 


found=1-nf : 'l=trouv\, 
CLOSEIN 
RETURN 


0=pas trouv\ 


=== + 


IF nombre=1 THEN nombre=0 : RETURN 


FOR i=sn TO nombre-1 


FOR i1=0 TO nombrechamps-1 


d$(i,il)-d$(i+},il) 
NEXT 

NEXT 

nombre=nombre-1 

RETURN 


He rre 


IF ef THEN 1020 


1190 : 

1200 REM RE 

1210 REM Sauve fichier sur disque 

1220 REMN s=s=sasess==spesssssssssss=2ses 

1230 : 

1240 GOSUB 1490 : IF File$="#ESC#" THEN RETURN ELSE GOSUR 10 
20 : IF found=0 THEN 1310 ELSE WINDOW #1,1,40,25,25 : PAPER 
€ : INK 2,1 : CLS #1 : PRINT #1,CHR$(7)"Doit Jtre remplac\ ( 
o,n " 

1250 EVERY 20,0 GOSUB 1290 

1260 d$=INKEYS : IF d$="" THEN 1260 

1270 im=REMAIN(O):IF UPPER$(d$S)<>"O" THEN 1240 

1280 GOTO 1310 

1290 LOCATE #1,30,1 : IF im=0 THEN PRINT#1,"?";:im=1 ELSE PR 
INT#1," ";:im=0 

1300 RETURN 

1310 ef=0 : OPENOUT fileS$+".dat" : IF ef THEN 1310 

1320 PRINT#9,nombrechamps 

1330 FOR i=0 TO nombrechamps-1 

1340 PRINT #9,m${i) 

1350 NEXT 

1360 PRINT#9, nombre 

1370 FOR i=1 TO nombre 

1380 FOR i1=0 TO nombrechamps-1 

1390 PRINT#9,d${(i,il) 

1400 NEXT 

1410 NEXT 

1420 CLOSEOUT 

1430 RETURN 

1440 : 

1450 REM ==mnss=-=--=sa0s====2assss=ssssas 

1460 REM Entr\e du nom de fichier 

1470 REM ssssosececrssssssesness=zuese 

1480 : 

1490 MODE 1 : WINDOW #1,1,40,1,3 : PAPER #1,2 : INK 2,1 : CL 
S#1 : LOCATE #1,7,2 : PRINT #1,"Entrez le nom de fichier:" 
1500 WINDOW #1,1,40,15,16 : CLS #1 : PRINT#1,TAB(10)"N'utili 
sez pas (,.:"CHR$(34)") 

1510 PRINT#1,TAB(8)"Entrez au maximum 8 caractlres 

1520 WINDOW #1,1,40,6,10 : CLS #1 

1530 LOCATE #1,5,3 : INK 3,3 

1540 PRINT #1,"Nom de Fichier :"; 

1550 WINDOW #1,21,29,8,8 : PAPER #1,3 : CLS #1 

1560 LINE INPUT #1,"",file$ : IF Ffile$="#ESC#" THEN RETURN 
1570 IF LEN(File$)>8 THEN PEN 3:LOCATE 8,16:PRINT CHR$(7)"En 
trez au maximum 8 caract{res":FOR i=1 TO 300:NEXT:PAPER #1,2 
: GOTO 1500 

1580 c$=",,.:"+CHR$S(34) : 

1590 FOR i=1 TO LEN(CS):IF INSTR (file$,MIDS(c$,i,1)})=0 THEN 
NEXT:GOTO 1610 

1600 LOCATE 10,15 : PEN 3:PRINT CHR$(7)"N'utilisez pas (,.:" 
CHR$(34)")":FOR i=1 TO 300:NEXT:PAPER #1,2:GOTO 1500 

1610 RETURN 


1175 


1620 : 

1630 : 

1640 REM RE 
1650 REM Entr\e du Fichier 

1660 REM ===--=-=:2=2:=---2-=-22-222--22-=-=22ss22s222=-==-== 
1670 : 

1680 GOSUB 1490 : IF Ffile$="#ESC#" THEN RETURN ELSE GOSUB 10 
20 : IF Ffound=0 THEN 1680 

1690 ef=0 : OPENIN fileS+".dat" : IF ef IHEN 1690 
1700 INPUT#9, nombrechamps 

1710 ERASE d$:DIM d$(200, nombrechamps-1) 

1720 FOR i=0 TO nombrechamps-i 

1730 INPUT#9,m${i) 

1740 NEXI 

1750 INPUT#9, nombre 

1760 FOR i=1 TO nombre 

1770 FOR i1=0 TO nombrechamps-1] 


1780 INPUT#9,d5(i,ii) 
1790  NEXT il 
1800 NEXT 


1810 CLOSEIN 

1820 RETURN 

1830 : 

1840 REM ======essssss=sssssssssssussszz 

1850 REM Fin du programme 

1860 REM ========---==225---=-=2252-=-=22.- 

1870 : 

1880 IUSER,0 : CALL desactive : MODE 2 : PRINT "#s*“w Fin du p 
rogramme ###" : END 

1890 : 

1900 REM ========22=22s22s2222=-=2=2--2222.- 

1910 REM Affiche contenu disquette 

1920 REM =-===s==22==2=2s22-==2=2=2-2222=2: 

1930 : 

1940 MODE 2 : CAT 

1950 LOCATE 36,25 : PRINT "<< Frapper une touche >>" 
1960 CALL &BBO6 : RETURN 
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1970 : 

1980 REM =====-=-=-=--=-=--===22=2=2=-2=22=- 

1990 REM Modifier/Cr\er masque 

2000 REM RER — 

2010 

2020 MODE 1 : WINDOW #1,1,40,1,3 : PAPER #1,2 : INK 2,1 : CL 
S#1 : LOCATE #1,7,2 : PRINT #1,"Cr\er et modifier masque 
2030 LOCATE 1,7 : IF nombre>0 THEN jusque=nombrechamps-1 ELS 
E jusque=9 

2040 FOR i=0 TO jusqu 

2050 PRINT "Champ RIGHTS (STRS(I#1), 2)": "m$(i) 

2060 NEXT 

2070 WINDOW #1,5,35,23,25 : PAPER #1,2 : PEN #1,1 : CLS#1 
LOCATE #1,8,2 : PRINT#1,"Ctrl/Enter pour fin 

2080 WINDOW #1,10,40,7,/7+jusque : PAPER #1,0 : PEN #1,1 

2090 CLS#1:FOR I=0 TO nombrechamps-1:PRINT #1,MS$(I) 

2100 NEXT:LOCATE #1,1,nombrechamps+i+(nombrechamps-jusque+l) 
:12=VPOS(#1)-2:LINE INPUT #1,"",a$ : IF a$="#fSCx" THEN RETU 
RN ELSE IF a$="" THEN LOCATE #1,1,nombrechamps+1 : GOTO 2090 


2110 i1=VPOS(#1)-2:1F i2=8 AND i1-=8 THEN i1=9 
2120 m$(ii)=a$ : IF il>nombrechamps-1 THEN nombrechamps=i1+1 


2130 GOTO 2090 

2140 : 

2150 REM ===zsszs=zz=ssss=2=scess=ssssssesesssss 

2160 REM Entr\e/modification des donn\es 

2170 REM =sacssessessssesesassessess. cesssusess 

2180 : 

2190 IF nombrechamps:0 THEN RETURN ELSE MODE 2 : WINDOW #1,1 
,80,1,3 : PAPER #1,1 : PEN #1,0 : CLS #1 

2200 IF stat=0 THEN a$="Entr\e et modification de donn\es" EF 
LSE IF stat=3 THEN a$="S\lection de l'enregistrement { suppr 
imer" ELSE IF stat-5 THEN a$="S\lection des enregistrements 

{ sortir" 

2210 LOCATE #1,40-LEN(a$)/2,2:PRINT #1,a$ 

2220 GOSUB 2580 

2230 LOCATE 1,7 : FOR i=0 TO nombrechamps-] 

2240 PRINT m$(i)TAB(longueur-2)":" 

2250 NEXT 

2260 LOCATE 60,5 : PRINT "Longueur du champ de donn\e="80-10o 
naucur 
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2570 PEN #2,0 : PEN #3,1 : PAPER #2,1 : PAPER #3,0 

2280 WINDOW #2,5,75,22,23 : CLS #2 : IF stat<S THEN PRINT #2 

, TAB(7})"#* Touches Ctrl/Enter=Changer \tat (entr\e/correctio 

n) ##":1F stat=0 THEN a$="#* Entrez dans n'importe quel cham 
‘fin' pour fin ##":GOTO 2300 

2290 IF stat<>2 THEN a$="#* Remplissez le masque avec le cri 

tire de recherche ##" ELSE a$="#»* Entrez maintenant jes corr 

ections ##*" 

2300 PRINT #2,TAB(35-LEN(aS$)/2)a$ 

2310 WINDOW #1,1,80,25,25 : PAPER 41,1 : PEN #1,0 

8320 CLS#1 : LOCATE #1,5,1 : PRINT #1,"Stock\ :"; nombre : 10 

CATE #1,55,1 : PRINT #1,"Etat : "; : IF stat<>1 THEN PRINT#1 

,"#* Entr\e ##" ELSE PRINT#1,"#* Correction **" 

2330 PO=0 

2340 IF stat<>2 THEN WINDOW #3, longueur,79,7,16 : CLS#3 

2350 WHILE PO<nombrechamps : WINDOW#2,1,longueur-3,7+P0,/7+po 
WINDOW #3,1,1ongueur-3,7+po,7+po : CLS#2 : PRINT #2,m$(po 


) 

2360 WINDOW #4,1ongueur,79,7+po,7+po : LINE INPUT #4,a$ : a$ 
=LEFT$(a$,80-longueur) 

2370 IF a$="#E SC" THEN 2500 ELSE IF LOWER$(a$)="fin" THEN R 
L'IURN 

2380 da$(po)=a$ 

2390 CLS#3: PRINT#3,mS$(po):po=po+1 

#400 WEND 

2410 IF stat=0 THEN nombre=:nombre+1+{(nombre=200):FOR i=0 TO 
nombrechamps-1:dS${(nombre,i)}=da$(i):NEXT:GOTO 2320 

2420 IF stat=2 THEN 2470 

2430 IF stat=5 THEN RETURN 

2440 GOSUB 700 : REM d\termine cha'ne recherchi\e 

2450 LOCATE 25,20 : IF found=0 THEN PRINT CHR$(7)"#» Cet enr 
egistrement n'existe pas #*" ELSE PRINT SPACES(40) 

2460 IF found=0 THEN 2320 ELSE FOR i:0 10 nombrechamps-1:LOC 
ATE longueur,7+i:PRINT d$(found,i):NEXT:1F stat=3 THEN RETUR 
N ELSE stat-=-2:GOTO0O 2280 

#470 FOR i=0 TO nombrechamps-1:1F da$(i)="" THEN 2490 

2480 d$(found,i)=da$(i) 

2490 NEXT:stat=1:GOTO 2500 

2500 IF stat=5 THEN RETURN ELSF IF st>1 THEN 2280 ELSE stat= 
1-stat:GOTO 2280 

2510 END 

2520 RETURN 
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2540 REM SESSSSSSSSSESSSNESSS==SSSecSsSLssSues 


2580 longueur=0 

2590 FOR i=0 TO nombrechamps-1 

2600 IF LEN(m$(i))>longueur THEN longueur=LEN(m$(i)) 
2610 NEXT 

2620 longueur=longueur+4 

2630 RETURN 


2690 IF nombre=0 THEN RETURN ELSE stat=3 : st1=1 : GOSUB 219 
0 : IF LOWER$S(a$)-"fin" THEN RETURN ELSE st1=0 

2700 LOCATE 1,18 : PRINT "Enregistrement correct (o/n) ":EVE 
RY 30,0 GOSUB 2740 

2710 d$=INKEYS : IF d$="" THEN 2710 

8/00 sn=REMAIN(O):IF LOWER$(d$)<>"o" THEN 2690 

2730 sn=found : GOSUB 1110 : RETURN 

8740 i=ABS(i=0):LOCATE 30,18:1F i THEN PRINT"?" ELSE PRINT" 


2750 RETURN 


> AL TPE 


2/60 : 


2770 REN =sssssssss=szssessessesasssessesesseeses 

&/80 REM Trier 

2790 REM DROLE ST serrer -s 

2800 

2810 MODE 2: A Rec quel champ doit se faire le tri (1-"ST 
R$(nombrechamps)"): : INPUT " ",a 

2820 IF a<i OR a>nombrechamps THEN 2810 

2830 PRINT : PRINT "Champ "CHR$(34);m$(a-1); CHR$(34)" -- cor 


rect ? (o/n) 

2840 d$=INKEYS : IF d$="" THEN 2840 

2850 IF LOWER$(d$)<>"o" THEN 2810 

2860 champ=a-1 : GOTO 840 

2870 i9=(i9=0):LOCATE 5,7:IF i9 THEN PRINT" "CHR$S(224) ELSF 
PRINT CHR$S(224)" 

2880 RETURN 

2890 : 
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2900 REÈM asacz=-=pans==-pepssssosesss=cessesssss 

2910 REM Sortie sur \cran et imprimante 

7020 REN ssassersous=ssgescerenNtesSsSn eecsSsereese 

2930 : 

2940 MODE 2:PRINT"Sortie sur imprimante ou sur \cran ? (I/E) 


2950 d$=INKEYS : 1F d$="" THEN 2950 

2960 IF INSTR("ei",LOWERS(d$))=0 THEN 2950 
2970 IF LOWFRS$S(dS$S)="i" THEN ae=8 ELSE ae=0 
2980 sti=1:stat-5:GOSUB 2190 

2990 F=0 

3000 FOR i=0 TO nombrechamps-1 

3010 IF da$(i)<>"" THEN F(f)=i:f=f+1 
3020 NEXT 

3030 longueur=Tongueur-4:IF ae=0 THEN MODE 2 
3040 FOR i=1 TO nombre 

3050 FOR i1=0 TO F-1 


3060 PRINT#ae,m$(f(i1))SPACES(longueur-LEN(m${(f(i1)}})})": 
“ds(i,f(i1)) 

3070  NEXT 

3080  PRINT#ae 


3090 NEXT | 
3100 IF ae=0 THEN PRINT "<< Frapper une touche >>":CALL &BBO 


6 
3110 RETURN 
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3120 : 


3130 
3140 
3150 


3160 : 


3170 
3180 
3190 
3200 
3210 


IF ERR<>18 THEN RESUME NEXT 

ef=0 : CALL msg,@dss$ 

nf=0:IF RIGHT$(ds$,9)="not found" THEN nf=1:RESUME NEXT 
WINDOW #6,1,40,24,25:PAPER #6,1:PEN #6,0:CLS #6 

PRINT #6,CHRS$S(7)"#”mx Disque:";ds$;" en"; ERL:PRINT #6,"« 


ENTER>=menu principal,sinon recommence 


3220 
3230 
3240 


d$=INKEYS : IF d$="" THEN 3220 
ef=1 : IF ASC(d$)=13 THEN RESUME 510 
RESUME NEXT 
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5,5 DISKMON - UN MONITEUR DISQUETTE POUR LE CPC 


Avez-vous essayé le programme de lecture et d'affichage de secteurs 
isolés de la disquette? Vous savez alors combien la sortie sur écran 
était lente avec ce programme. Dans le moniteur de disque suivant qui 
repose à l'origine sur le programme que nous venons d'indiquer, nous 
avons réalisé la sortie des informations de secteur dans un petit 
programme machine pour obtenir une vitesse de sortie acceptable. Nous 
avons également intégré d’autres instructions qui sont certainement très 

utiles dans certaines circonstances, Voici les différentes instructions 
dont vous disposez: 


R-lire des secteurs 

M-modifier le contenu d’un secteur 

W-écrire des secteurs 

C-afficher le catalogue 

B-calculer les numéros de piste et de secteur à partir du numéro de 
b10c 


La lecture des secteurs a été organisée de façon très pratique. N'importe 
quel secteur de la disquette peut être atteint avec les quatre touches 
curseur, Les touches ‘curseur haut’ et ‘curseur bas’ permettent de 
sélectionner respectivement Ia prochaine piste plus élevée où moins 
élevée, les touches ‘curseur gauche’ et ‘curseur droite’ sélectionnent le 
secteur qui se trouve avant ou après le secteur actuel. 

Un ‘wrap around’ est intégré à ces fonctions. C'est-à-dire que Si vous 
avez lu le secteur 9 d’une piste et que vous appuyez ensuite la touche 
‘curseur droite’, c'est le secteur 1 de la prochaine piste qui est 
affiché, Notez la particularité suivante: lorsque vous tenez enfoncée les 
touches curseur, ce n’est pas le contenu du Secteur actuellement lu qui 
est affiché, La vitesse d'accès est ainsi nettement accélérée. 
Malheureusement il en résulte également que ce n'est pas toujours le 
dernier secteur lu qui est affiché, de sorte que nous vous conseillons de 
le lire à nouveau avec ‘’R(ENTER)',. 

Vous pouvez naturellement également sélectionner directement un Secteur 
précis. L’instruction ‘’R' sert aussi à cela. Mais au lieu d'ENTER entrez 
alors un numéro de lecteur, dans la forme O0 pour lecteur À ou 1 pour 
lecteur B, le programme vous demandera alors les valeurs de piste et 
secteur voulues,. Le secteur sera alors lu et la première moitié du 
contenu de ce secteur sera affichée. 


ll n’est malheureusement pas possible de faire entrer dans un écran la 
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totalité des 512 octets d'un Secteur en dump ASCII et HEXA. C'est pour 
cette raison qu'on peut basculer entre les deux pages écran correspondant 
à un Secteur avec les touches ‘Shift curseur gauche’ et ‘Shift curseur 
droite’. 


L’'instruction ‘M’ permet de modifier les informations lues, Cette 
instruction vous demande l'adresse de buffer à modifier, Si vous répondez 
àa cette question avec ENTER, c'est le début du buffer qui sera 
sélectionné comme adresse, 

L'adresse est alors affichée en même temps que le contenu. Le programme 
attend ensuite la nouvelle valeur de l'adresse de buffer, Vous pouvez 
entrer les nombres hexa 00 à FF, Ces nombres doivent être entrés sans ‘’&'’ 
et validés avec ENTER. La prochaine adresse de buffer est alors affichée 
avec le contenu correspondant. Si vous ne voulez toutefois pas modifier 
le contenu de l'adresse affichée, vous pouvez passer à l'adresse suivante 
en appuyant sur la touche ENTER. Vous pouvez sortir du mode d'entrée avec 
XCENTER)'. 


Vous pouvez ensuite réécrire sur la disquette un secteur ainsi modifié 
avec l'instruction ‘’W'. En entrant ‘W(ENTER)', le Secteur est écrit dans 
le Secteur d'où II avait été lu à l'origine. Vous pouvez cependant 
choisir également un autre Secteur en indiquant la piste et le secteur 
avec l'instruction ‘’M'. 


L'instruction ‘B'’ constitue en quelque sorte une aide à la lecture de 
fichiers, Comme vous l'avez vu dans les chapitres précédents, les numéros 
des blocs occupés par chaque fichier sont sauvegardés dans le catalogue. 
Il n'est pas difficile de convertir ces numéros de bloc en numéros de 
piste et de secteur, mais c'est tout de même assez pénible, Ce travail 
nous est épargné par l'instruction ‘B’,. Indiquez à cet effet le numéro de 
bloc trouvé dans le catalogue et le CPC calculera automatiquement pour 
vous les valeurs correspondantes et les affichera dans la ligne d’'en- 
tête. Avec ‘’RCENTER)' vous pouvez alors lire et faire afficher le premier 
secteur ainsi calculé du bloc. Vous obtenez le second secteur en appuyant 
sur la touche ‘curseur droite’. 


L'instruction ‘’C’ affiche le catalogue normal de la disquette, Cette 
fonction est très utile car vous n'êtes pas obligé de quitter le 
programme pour examiner le contenu de la disquette. 


Comme le programme est largement écrit en Basic, il peut aisément être 
étendu avec vos propres routines et extensions. Une extension possible 
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consisterait par exemple à afficher le format de la disquette placée dans 
le lecteur de disquette et à reconnaître un changement de disquette, Si 
vous avez en effet lu une disquette en format de données, vous devez, 
dans la version actuelle du programme, envoyer d'abord l'instruction ‘’C’, 
en cas de changement de format, pour qu'AMSDOS reconnaisse le changement 
de format et modifie le DPB en fonction de cela, Vous pourriez résoudre 
ce problème en déconnectant les messages d'erreur et en examinant d'après 
les flags si le secteur a été lu avec succès. Si ce n'est pas le cas, 
vous pourriez alors sauter à la routine AMSDOS pour déterminer le format 
(&C56C) et lire ensuite le secteur une nouvelle fois, 

Un autre point faible que vous pourriez éventuellement améliorer est 
constitué par l‘instruction ‘B'. Elle ne fonctionne correctement qu'avec 
les formats CP/M standard et Vendor. Les résultats calculés pour les 
autres formats sont faux, 

Une autre amélioration possible consisterait à sortir le contenu du 
secteur sur imprimante, La routine hexdump de l'exemple de lecture d'un 
secteur isolé pourrait rendre de grands Services à cet égard. 


Mais malheureusement, avant que vous ne pensiez à modifier notre 
programme, il vous faut encore le taper. Mais cela ne devrait pas poser 
de problème, notamment grâce aux valeurs de contrôle pour les lignes de 
Datas,. 
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1000 ' #n””… MONITEUR DISQUETTE LEE 

1010 ' ##”…… RBR 17/4/1985 ““# 

1020 ‘ 

1030 DEFINT A-L,N-Z 

1040 MEMORY &AOO00-1 

1050 MODE 2 

1060 LOCATE 10,10:PRINT"Veuillez patienter ..." 

1070 GOSUB 9000: ‘definir les fenetres et POKFr les routines 
machine en memoire 

1080 CLS#I1 

1090 ins$=! 

1100 buffer=&A2 

1110 cmd$="CRYMB"+CHRS(&FO)+CHRS(&F1)+CHRS(SF2)+CHRS(8&F3) 
1120 cmd$=cmd$+CHRS(&F6)+CHRS(&F 7) 

1130 FOR i=1 TO LEN(cmd$}):cmdl$=cmdl$+MIDS{(cmd$,i,1)+",":NEX 


1140 cmdi$=LEFT$(cmdi$,LEN(cmd1$)-1) 

1150 sector=1:track=0:drive=0:instruction=8&84:catflag=0 
1160 ‘ 

1170 

2000 ' #nu…… PROGRAMME PRINCIPAL LEE 

2010 

2020 POKE &A108,buffer:POKE &A10A,buffer 

2030 LOCATE #1,1,1:CLS 

2040 GOSUB 6000:'afficher une page 

2050 PRINT"'INSTRUCTION "cmd1$" >" 

2060 ins$S=UPPERS(INKEYS):I1F ins$="" THEN 2060 ELSE CLS 
2070 ON INSTR(cmd$,ins$) GO010 3100,3150,3200,3250,3300,3500, 
3550,3600,3650,3400,3450 

2080 GOTO 2050 

2090 

2100 

3000 ‘ ##”#”x TABLE D'INSTRUCIIONS ELE 

3010 ‘ 

3100 ‘##*# INSTRUCTION D 

3110 GOSUB 4000:GOTO 2050 

31207 

3150 ‘##* INSTRUCTION R 

3160 GOSUB 5000:GOTO 2020 

DD | 

3200 ‘##»x INSTRUCTION W 

3210 GOSUB 5100:GOTO 2020 

3220 ‘ 
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3250 ‘#xx INSTRUCTION M 

3260 GOSUB 7000:GOTO 2030 

3270 : 

3300 ‘##** INSTRUCTION 8 

3310 GOSUB 8000:GOTO 2030 

3320 

3400 ‘#”»“ AFFICHER LA PREMIERE PAGE 

3410 POKE &A108,BUFFER:POKE &A10A, BUFFER:GOTO 2030 

3420 : 

3450 ‘…#ux AFFICHER LA SECONDE PAGE 

3460 POKE &A108,BUFFER+1:POKE &A10A, BUFFFER+1:GOTO 2030 

3470 : | 

3500 ‘#…e* TRACK+1 

3510 TRACK=-(TRACK<39)+TRACK+((TRACK=39)#39): GOSUB 5500: GOTO 
2020 

3520 ‘ 

3550 ‘##* TRACK-1 

3560 TRACK=(TRACK>0)+TRACK+{-(TRACK=0)#39):GOSUB 5500:GOTO 2 

020 

3570 : 

3600 ‘'##”*“ SECTOR-1 

3610 SECTOR=(SECTOR>1)+SECTOR+(-{SECTOR=1)#(PEEK(&ABAO+(DRIV 

Ex64))-1)) 

3620 IF SECTOR=9 THEN GOTO 3550 ELSE GOSUB 5500:GOTO 2020 
3630 ! 

3650 ‘'#…u* SECTOR+1 

3660 SECTOR=-{SECTOR<9)}+SECTOR+((SECTOR=9)*(PEEK(&ABAO+{(DRIV 
*64))-1)) 

3670 IF SECTOR=1 THEN GOTO 3500 ELSE GOSUB 5500:GOTO 2020 

3680 

4000 ‘»xw» AFFICHER LE DIRECTORY 

4010 WINDOW SWAP 0,1:CLS:PRINT: IDIR:WINDOW SWAP 1,0: CATFLAG= 
1 


4020 RETURN 


= A 185; 


4030 ‘ 
9000 ‘##x LIRE SECTEUR 


5010 PRINT" LIRE SECTEUR":PRINT 

5020 GOSUB 5800:GOT0 5500 

5030 ‘ 

9100 ‘#“x ECRIRE SECTEUR 

5110 INSTRUCTION-885: PRINT" ECRIRE SECTEUR" :PRINT 
5120 GOSUB 5800 

9130 ‘ 


5500 ‘##s LIRE/ECRIRE SECTEUR 
5510 POKE &A100, INSTRUCTION 

5520 POKE &A104, DRIVE 

5530 POKE &A105,TRACK 

5540 POKE &A106, SECTOR-1+PEEK(8ABIF+DRIVF*&40) 
5550 CALL &AUAO: INSTRUCTION=&84: RETURN 


5560 
5800 '#”“» ALLER CHERCHER DRIVE, TRACK SECTEUR 
5810 INPUT" DRIVE (0/1) OU ENTER";DRIVES: IF DRIVFS="" 


THEN RETURN 
5820 DRIVE=VAL(DRIVES) 


5830 INPUT" TRACK (0-39) “, TRACK 
5840 INPUT" SECTEUR (1-9) ", SECTOR 
5850 RETURN 

5860 


6000 ‘#”“x AFFICHER 
6010 IF CATFLAG=1 THEN CATFLAG=0:CIS#1] 
6020 WINDOW SWAP 0,1 


6030 PRINT USING " Ü DRIVE ### | TRACK #4## S 
ECTOR ###  l'"'; DRIVE, TRACK, SECTOR 
6040 PRINT 


6050 IF INKEYS<>"" GOTO 6070 
6060 IF INSTR("BW",INSS)=0 THEN CAIL &BBB1:CALIL &AOOO:CALL & 
BB84 
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6070 
6080 
6090 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
/120 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 


WINDOW SWAP 1,0 
RETURN 


‘umx MODIF Y 

PRINT" MODIFIER BUFFER" 

INPUT"ADRESSE BUFFER "; BUADRS 

IF BUADR$S="" THEN BUADR-0 ELSE BUAUR=VAL("&"+BUADRS) 
MADR=BUADR+(BUFFER*256) 

PRINT HEXS(BUADR,4);"  ";HEXS(PEEK(MADR),2);" "; 
INPUT NEWBYTS: NEWBYTS=UPPER(NEWBYTS) 

IF NEWBYTS="X" THEN RETURN 

IF NEWBYTS="" THEN GOTO 7110 

NEWBYT=VAL ("&"+NEWBYTS): NEWUBYTS="" 

POKE MADR, NEWBYT 

BUADR=BUADR+1:GOTO 7040 


‘### CONVERTIR NUMERO BLOC 

PRINT" CONVERTIR NUMERO BLOC EN TRACK ET SECTOR" 
INPUT" NUMERO BLOC (EN HFXA) "; BLOCKS$ 
BLOCK$="&"+BLOCKS$S: A=VAL(BLOCKS$) 

SECTCNT=-A#2+18 

TRACK=(A#2+18)19 

SECTOR=(A*x2+18) MOD 9 +1] 

RETURN 
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8080 
9000 ‘#…» DEFINIR FENETRES 

9010 WINDOW #0,1,80,20,25 

9020 WINDOW #1,1,80,1,19 

9030 ‘ 

9100 ‘#»#»* DATAS POUR HEXDUMP/SECTOR 1-0 

9110 FOR I=8&A000 TO &AOBC 

9120 READ BYTE:POKE I,BYTE:S=S+BYTE:NEXT 

9130 DATA &C3,&2D,&A0,&7C, &CD, 808, &AO,&7D,&F5,&1F,&1F,&1F,&l 
F,&CD,&11, &A0 

9140 DATA &F1,8E6,&0F,&C6,830,8FE, &3A, 838, 802, &C6, 807, &C3, 85 
A, &BB,&3E, &O0D 

9150 DATA &CD,&85A,&BB,&3E, &0A,8&C3, &5A, &BB,R3E, &20, 8&C3,85A, &B 
B, &2A,807,&AI 

9160 DATA &ED,8&5B,809,8A1,&FD,&21,801,800,806,&10,8E5,8C5,&E 
D, 84B, 808, &A1 

9170 DATA &09,&CD, 803, &A0,&C1,8F1, &CD,&28, 8A0, &CD, 828, &AO, &7 
F,&CD, 808, &A0 

9180 DATA &FD,&28B,&8CD,&28,&A0,&A7,&ED,852,8&19,828,&2C, 823,81 
0,8EE,&01,&FO 

9190 DATA &FF,809,806,810,&CD,828, &A0,&87F,&F6,R87F,8FE, &20, 83 
8, 802,818, &02 

9200 DATA &3E,&2E, &CD,&5A, 8BB, &23,810,REF, &CD,RI1E, &AO, &ES, 83 
7,8ED,852,&E1 


*Hf, 168 


9210 


DATA &C8,&FD,8F5,&8C1,&0D,8&18,&B1,805,83E,&10,&90, &4F, &O 


6,&00,&ED, &42 


9220 


DATA 823,&41,818,&D0,&4F,&4B, &3A,&4C, 844, 809,841, &2C, &2 


2,820, 822, &OD 


9230 


DATA &21,&00,&A1,&CD, &D4,&BC, &22,8&01,&A1,&79,832,&03, &A 


L;  i &04, &A1 
924 


9250 
9300 
9310 
9320 
9330 
E 

9340 
9350 


DATA &5E,8&23,856,8&23,&4E,&21,8&00,&A2,&DF,&01, &A1, &C9, &2 


IF S<>20027 THEN PRINT"'ERROR IN CHECKSUM": END 

S=0 

FOR I=&A100 TO &A10C 

READ BYTE:POKE T,BYTE:S=S+BYTE:NEXT 

DATA &84,&00, 800, &00,8&00,8&00,8&01,&00,&A2,&FF,&A2,&00,&5 


IF S<>806 THEN PRINT"'ERROR IN CHECKSUM": END 
RETURN 


ivre" 


5.6 LA GESTION DE DISQUETTE 


La gestion de disquette sert à créer et à traiter des disquettes de 
travail, Les différentes fonctions vous sont proposées dans les points du 
menu de sorte que vous n'êtes plus par exemple obligé de charger CP/M 
pour formater une disquette, Après que vous ayez tapé le programme de 
gestion de disquette, Sauvegardez-le d'abord sur disquette, Après que 
vous ayez lancé le programme, vous obtenez le menu suivant à l'écran: 


1) Changer nom de fichier 

2) Suppression de fichier 

3) Formatage d’une disquette 

4) Affichage contenu disquette 

5) Copie de fichiers NON-PROGRAMMES 
6) APPEND - Fusion de deux fichiers 
7) Afficher contenu d'un fichier 


9) Fin du programme 


Pour sélectionner une point du menu, vous n'avez qu'à actionner la 
touche correspondante du clavier (sans ENTER). Vous arrivez 
instantanément dans la routine correspondante. 

Pour donner plus de clarté à nos explications, nous allons traiter tous 
les points du menu les uns après les autres. 


1) Changer nom de fichier 


Ce point du menu vous permet de changer le nom d’un fichier, On vous 
demande le nom du fichier dont vous voulez changer le nom. Entrez le nom 
Correspondant et actionnez la touche ENTER. 

SI VOUS VOULEZ SORTIR D'UN POINT DU MENU, ACTIONNEZ LORS DE L'ENTREE D'UN 
CHAMP QUELCONQUE LA TOUCHE ENTER, SANS AUTRES INDICATIONS. 

Après que vous ayez entré le nom d’un fichier, on vous demande le nouveau 
nom, Si vous voulez par exemple changer le nom d'un fichier de “A” en 
"B", entrez "A" comme ancien nom et “B” comme nouveau nom. 

On vous demande de placer dans le lecteur de disquette la disquette sur 
laquelle se trouve le fichier dont vous voulez changer le nom. Après que 
VOUS ayez actionné une touche, le nom fichier correspondant sur la 
disquette est: changé. 
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2) Suppression de fichier 


Ce point du menu est le plus pratique du programme de gestion de 
disquette. Il sert à “nettoyer” les disquettes, Vous serez surpris par la 
quantité de programmes et de données qui peuvent s'accumuler assez vite 
sur une disquette, Cette routine vous permet d'éliminer facilement de vos 
disquettes les programmes et fichiers de données devenus périmés et 
inutiles. Après que le catalogue de la disquette ait été affiché à 
l'écran, vous pouvez “aller” sur les différents noms de fichiers, En 
actionnant la touche COPY, vous pouvez marquer un fichier comme fichier à 
Supprimer, le champ correspondant clignote alors entre rouge et rose, ou 
VOUS pouvez supprimer à nouveau ce marquage. Lorsque vous avez marqué 
tous les fichiers que vous voulez supprimer, actionnez la touche ENTER. 
On vous demande alors encore si vous avez vraiment marqué tous les 
fichiers et si vous voulez vraiment supprimer ces fichiers, Après que 
vous ayez répondu positivement à ces questions, les fichiers marqués sur 
la disquette sont supprimés. 

Cette routine s'est avérée très utile pour nous, pour “nettoyer” les 
disquettes, particulièrement parce qu'elle est moins sujette à erreur que 
l'instruction ERA, a$ avec laquelle on a vite fait de supprimer par 
mégarde un fichier. 


3) Formatage d'une disquette 


Ce point du menu est particulièrement intéressant car il vous évite 
d'avoir à charger CP/M pour formater une disquette, Cette routine de 
formatage est plus rapide que la routine FORMAT sous CP/M; elle ne 
contrôle toutefois pas si les pistes ont été “correctement” formatées,. 
Nous n'avons cependant jamais eu de problème avec des disquettes que nous 
avions formatées avec cette routine, 

Vous pouvez formater en format Vendor et en format Data only; le 
formatage IBM n'a pas été prévu. 

Le format Vendor signifie que la disquette est formatée comme disquette 
système sur laquelle ne figure PAS CP/M et qu'on se contente de réserver 
les deux pistes supérieures, 11 vous faudrait alors copier CP/M sur la 
disquette sous CP/M avec l'instruction SYSGEN. 

Vous avez en règle générale intérét à formater votre disquette en format 
Data only; vous pouvez ainsi utiliser la totalité de la capacité de la 
disquette pour y sauvegarder des programmes Basic et des données, 

Après que vous ayez sélectionné le format, on vous demande de placer dans 
le lecteur la disquette à formater et d'actionner une touche, 


SEL Tr 


&) Affichage contenu disquette 


Le contenu de la disquette est affiché à l'écran. Vous pouvez utiliser 
par exemple ce point du menu pour vérifier si un fichier dont vous voulez 
changer le nom ou que vous voulez supprimer se trouve bien sur la 
disquette, 


D) Copie de fichiers NON-PROGRAMMES 


Vous ne pouvez pas copier des fichiers programmes avec cette routine mais 
elle vous permet par contre de copier des fichiers de données copiés avec 
cette routine. Vous pouvez choisir si le fichier source doit être copié 
sur la même disquette ou Sur une autre. Si vous voulez copier le fichier 
sur la même disquette, vous n'êtes soumis à aucune contrainte de place 
mémoire, contrairement à ce qui se passe si vous voulez copier le fichier 
sur une autre disquette: comme dans ce dernier cas, en effet, le contenu 
du fichier doit être entrestocké dans la mémoire centrale, la place 
mémoire disponible constitue une certaine limite; vous pouvez copier au 
maximum 250 enregistrements, Si le fichier est trop long pour pouvoir 
etre copié, cela vous sera indiqué par un message à l'écran. 


6) APPEND - Fusion de deux fichiers 


Ce point du menu vous permet de faire un seul fichier à partir de deux 
fichiers, On vous demande Iles noms des deux fichiers que vous voulez 
relier entre eux: le premier fichier constituera également plus tard la 
première partie du nouveau fichier et le second fichier sera ajouté à sa 
Suite, Le fichier objet est créé sur la même disquette sur laquelle se 
trouvent également les deux fichiers sources. 


7) Afficher contenu d'un fichier 


Ce point du menu a le même effet que l'instruction TYPE sous CP/M: le 
contenu d'un fichier ASCII est affiché sur l'écran. En appuyant "sur une 
touche quelconque, vous pouvez arrêter l'affichage ou le faire 
redémarrer. 

L'une ou l’autre de ces routines vous rendra certainement de bons 
services dans votre travail quotidien avec le lecteur de disquette. 


FOR 


10 DD MED DE DEEE ME DE DE DE DE DE DE 6 DE DE DEEE DE D DE Dé DE D à 


20 ‘#sx Gestion de disquette ---- JS/RB 1.5.85 ##+ 


30 ‘wmv dde de de de 4 6 DD DD 9 DE 6 D 6 D DE DE DE D DE DE dé à 


50 OPENOUT “dummy" : MEMORY HIMEM-1 : CLOSEOUT 

60 DATA &3e,&00,832,82F,&80,&3a,&2f,880,857,&3a,830,8&80,&5f, 
8&3a, 831,880 

70 DATA &4f,821,835,880,&df,832,8&80,83a,&2f,880,&fe, &27,&c8, 
83c, 832,82 

80 DATA &80,8&21,835,880,806,&09,877,8&23,823,8&23,823,&10,&f9, 
818, 8&d6, &27 

90 DATA &00,841,852,&c6, 807 


100 : 

110 FOR i=88000 TO &8034 
120 READ d 

130 POKE i,d 

140 s=s+d 

150 NEXT 


160 IF s<>4258 THEN PRINT"'#“»* Erreur en Datas #*=" 

170 MEMORY &/FFF 

180 : 

190 CLEAR : DEFINT b-z 

200 MODE 1 : INK 0,11 : INK 1,16,6 : INK 2,0 : INK 3,24 : PE 
N 3 : PAPER 2 : CLS 

210 BORDER O 

220 CLS : ORIGIN 0,0,0,640,340,400 : CLG 3 

230 PAPER 3 : PEN 2 : (LOCATE 14,2 : PRINT"Gestion de disquet 
te" : PAPER 2 : PEN 3 

240 LOCATE 1,7 

250 PRINT"1}) Changer nom de fichier" 

260 PRINT"2) Suppression de fichier" 

270 PRINT"3) Formatage d'une disquette" 

280 PRINT"“4) Affichage contenu disquette" 

290 PRINI"5) Copie de fichiers NON-PROGRAMMES" 

300 PRINT"6) APPEND - Fusion de deux fichiers" 

310 PRINT"7) Afficher contenu d'un fichier" 

320 PRINT : PRINI"9) Fin du programme" 

330 LOCATE 1,20 : PEN 1 : PRINT "Votre choix:" 

340 a$=INKEYS : IF a$-"" THEN 340 

350 we=VAL(a$) : IF we<l OR (we>7 AND ve<>9) THEN 340 

360 PEN 3 : ON we GOT0 1200,550,380,1120,1340,1/700,1900,1900 
2100 * 
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420 CLS : PRINT"1) Format Vendor" : PRINT : PRINT"'ou" : PRIN 

T : PRINT"2) Format Data only” 

430 aS=INKEYS : IF a$<"1" OR a$>"2" THEN 430 

440 IF a$="1" THEN F$="Vendor" : y=841 ELSE F$="Data Only" 
y=&C1 

450 x=88035 

460 FOR i=1 TO 9 

470 POKE x,0 : POKE x+1,0 : POKE xt2,y : POKE x+3,2 

480 X=x+4 

490 y=y+2 : IF (y AND &F) = &B THEN y=y-9 

500 NEXT 

510 PRINT : PRINT'"'Veuillez inserer la diquette" : PRINT'et f 

rapper une touche..." 

520 IF INKEYS="" THEN 520 

530 CALL &8000 : GOTO 190 

540 

550 less ss=sss===ssssss=ss==-=== 

560 ‘ Suppression de fichier 

570 lasssssessesss=zsssss========== 

580 : 

590 DIM a$(65),era(64) :CLS 

600 LOCATE 4,11 : PRINT"'Je lis le Directory ..." 

610 PRINT : PRINT" un moment, je vous prie 

620 lin$=STRING$(40,154) 

630 FOR i=0 TO 63 

640 a$(i)}=STRINGS(11,32) 

650 NEXT 

660 a=PEEK(&BBSA) : POKE &BBSA,8C9 : CAT : POKE &BBSA,a 

670 anz=PEEK(&A912) : a=PEEK(&A/79C)#256 + PEEK(&A/79B)+} 

680 CLS 

690 FOR i=0 TO anz 

700 POKE @a$(i)+1,a-(INT(a/256)*#256) 

710 POKE @a$(i)+2,INT(a/256) : a=a+14 

720 NEXT 

730 FOR i=0 TO anz 

740 IF ASC(LEFT$(a$(i),1)) = O THEN a=i : i=anz : GOTO 7/70 
750 a$(i)=LEFTS(a$(i),8) + "." + RIGHT$S(a$(i),3) 

760 PRINT a$(i), 

770 NEXT : anz=a 


+ ET dE 


990 
1000 


ER 2 : 


1090 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


LOCATE 1,22 : PRINT lin$ 
txt$="Supprimer sur ce disque? (O/N)" : GOSUB 1090 
GOSUB 1100 : IF LOWER$(a$)="o" THEN 840 
txt$="ENTER = un autre disque, X = fin" : GOSUB 1090 
GOSUB 1100 : IF aS$=CHR$S(13) THEN ERASE a$,era : GOTO 550 
IF LOWER$(a$)="x" THEN 190 ELSE 820 
txt$="Touche 'COPY' marque a supprimer" : GOSUB 1090 
x=0 : xc=1 : yc=1 : GOTO 950 
x=temp : GOSUB 1100 : IF a$=CHR$(13) THEN 1000 
IF ASC(a$)=8&FO THEN x=x-3 : IF x<O THEN 860 ELSE 950 
IF ASC(a$)=8&F1 THEN x=x+3 : IF x>anz-1 THEN 860 ELSE 950 
IF ASC(a$)=8&F2 THEN x=x-1 : IF x<O THEN 860 ELSE 950 
IF ASC(a$)=8&F3 THEN x=x+1 : IF x>anz-1 THEN 860 ELSE 950 
IF ASC(a$)<>&EO THEN 860 
era(x) = era(x) XOR 1 'Inverser le champ 
LOCATE xc,yc : PAPER eralx) 
PRINT a$(x); : PAPER 2 : GOTO 860 
yco = x\3+1 : xco = (x- ((yco-1)*3))“13+1 
LOCATE xc,yc : PAPER (era(temp)=0)#-2+era(temp) 
PRINT a$(temp); : PAPER 2 
LOCATE xco,yco : PAPER era(x) : PRINT a$(x}); : PAPER 2 
XC=XCO : yc=yco : temp=x : GOTO 860 
LOCATE xc,yc : PAPER 2+{(era(x)<>0) : PRINT a$(x); : PAP 
txt$="Tous les fichiers sont marques? (O/N)" : GOSUB 


GOSUB 1100 : IF LOWFR$(a$)<>"o" THEN 840 
txt$="Vraiment supprimer (O/N)" : GOSUB 1090 
GOSUB 1100 : IF LOWER$(a$)<>"o" THEN 840 | 
txt$="Je supprime les fichiers !" : GOSUB 1090 


FOR i=0 TO anz 

IF era(i) THEN IERA,@a$(i) 
NEXT 

GOTO 190 


LOCATE 4,24 : PRINT CHRS(20);txt$ : RETURN 
a$=INKEYS : IF a$="" THEN 1100 ELSE RETURN 


ER mm OS en ne ne = = en 


= ns On 0e en mg me mn te Me ut en ee me mue un me mnt le On me ee ee mue me ot due ut + pee un mn 
2 — 


CLS : CAT 
PRINT : PRINT"'Frapper une touche ..." 
IF INKEYS="" THEN 1180 ELSE 190 


= FINIS 


1240 CLS 

1250 INPUT "Ancien nom du fichier : ",falt$ : IF falt$=-"" TH 
EN 190 

1260 INPUT "Nouveau nom du fichier : ",Neu$ : IF neu$:"" THE 
N 190 

1270 PRINT : PRINT'"'Veuillez inserer la disquette" 

1280 PRINT : PRINT'"sur laquelle se trouve le fichier" 

1290 PRINT : PRINT'et actionnez une touche" 

1300 IF INKEYS="" THEN 1300 

1310 IREN,@neuS$,@faits 

1320 GOTO 190 


1330 

19340 'sssssesssrssesssss2essesensssssss 

1350 Copie de fichiers pas PRG 

1960 '===surececse=2srsueres=sss2ssssess 

1370 : 

1380 CLS : INPUT "Nom du fichier source : ",quel1l$ : IF quel 
1$="" THEN 190 

1390 INPUT "Nom du fichier objet : ",ziel$ : JF ziel$="" TH 
EN 190 

1400 INPUT "Copier sur une autre disquette (O/N) : ",jn$ 


1410 IF LOWERS$S(jn$)="n" THEN 1620 

1420 DEFSTR a : DIM a(250) 

1430 PRINT : PRINT'Veuillez inserer la disquette source" 
440 PRINT'et actionnez une touche" 

1450 IF INKEY$S="" THEN 1450 


M 190 


1460 


OPENIN quell$ 


(7) 
FOR i=1 TO 1000:NEXT:CLOSEIN:R 


1470 WHILE NOT EOF 

1480 LINE INPUT #9,a(xc) 

1490 XC=xC+1 : IF xc>250 OR FRE(0)<2000 THEN PRINT CHRS(7 
"Le fichier est trop grand" 

UN 190 

1500 WEND 

1510 CLOSEIN 

1520 PRINT : PRINT CHR$(7)"Veuillez inserer la disquette obj 
et" 

1530 PRINT'et actionnez une touche" 

1540 IF INKEYS="" THEN 1540 

1550 PRINT : PRINT"Je copie"xc"enregistrements." 
1560 OPENOUT ziel$ 

1570 FOR i=0 TO xc 

1580 PRINT #9,a(i}; : IF LEN(a(i)})<255 THEN PRINT #9 
1590 NEXT 

1600 CLOSEOUT 

1610 RUN 190 

1620 OPENIN quel1$ : OPENOUT ziel$ 

1630 WHILE NOT EOF 

1640 LINE INPUT #9,a$ 

1650 PRINT #9,as 

1660 WEND 

1670 CLOSEIN : CLOSEOUT 

1680 GOTO 190 

1690 

1700 '=ssasasz==ssssesssesesesasssssss=z 

1/10 Fusion de deux fichiers 

1790 'szssssssssssssasszssssssssssessss 

1730 

1740 CLS : INPUT "Nom du premier fichier : 


}="" 


THEN 190 


TT. 


",fS(0) : IF 


Fs(0 


1750 INPUT "Nom du second fichier: 
N 190 


1760 

190 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 


INPUT MNom du fichier objet 


PRINT : PRINT"ok" 
OPENOUT f35 
FOR i=0 TO 1 
OPENIN fs(i) 
WHILE NOT EOF 
LINE INPUT #9,as 
PRINT #9,a$ 
WE ND 
CLOSEIN 
NEXT 
CLOSEOUT 
GOTO 190 


mm 


1930 : 


"1fS(1) 


QE A LE 


EE 1987 


IF FS$(1)="" THE 
IF f35="" THEN 


1940 ON ERROR GOTO 2090 


1950 CLS : INPUT "Nom du fichier : ",F$ : IF F$="" THEN 190 
1960 MODE 2 : PEN 1 : INK 1,1 : PRINT"Contenu du Fichier "FS 


1970 PRINT STRING$S(80,"-") 

1980 OPENIN F$ 

1990 WHILE NOT EOF 

2000 LINE INPUT #9,a$ 

2010 PRINT a$ 

2020 IF INKEYS="" THEN 2040 

2030 IF INKEYS="" THEN 2030 

2040 WEND 

2050 CLOSEIN 

2060 PRINT : PRINT"Frapper une touche" 
2070 IF INKEYS="" THEN 2070 

2080 GOTO 190 

2090 PRINT'File 1ype Error - pas fichier ASCII 
2060 

2100 CLS : PEN 1 : PRINT"Fin du programme” 
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DATAMAT AMSTRAD CPC 464 ET 664 


GESTION DE FICHIERS PROFESSIONNELLE POUR TOUS EN FRANCAIS 
(accents à l'écran et à l'imprimante, messages, documentation...). 


Avec DATAMAT, vous pouvez créer, modifier, rechercher, calculer, annuler, 
trier et imprimer jusqu'à 4.000 fiches. 


DATAMAT est utilisable immédiatement, même par un débutant. Des menus 
en FRANÇAIS garantissent une utilisation aisée. 


DATAMAT permet de travailler en 40 ou 80 colonnes, avec un où deux 
lecteurs de disques. 


DATAMAT permet : — la recherche avec ou sans index, 
— la recherche multicritères, 
le tri des fiches en ordre croissant où non, sui- 
vant critères, 
— l'impression sur différents types d'imprimantes 
(voir manuel). 


DATAMAT est écrit en langage machine, ce qui garantit une excellente 
rapidité d'exécution et d'utilisation. 


DATAMAT est utilisable conjointement avec TEXTOMAT, le traitement de 
texte, pour réaliser vos MAILINGS... 


DATAMAT est livré en version 464 et 664 sur la même disquette, avec une 
documentation en FRANCAIS de 60 pages environ. 


Système requis : 
Version disquette : 
+ Un Amstrad CPC 664 ou 
un Amstrad 464 avec unité de disquette DDI. 
+ Une imprimante (facultatif). 


© Copyright DATA BECKER Réf. : AM304 


© Micro Application Prix : 450 FF TTC 
lab 372.26 91 


TEXTOMAT AMSTRAD CPC 464 ET 664 


TRAITEMENT DE TEXTE PROFESSIONNEL POUR TOUS EN FRANCAIS 
(accents à l'écran et à l'imprimante, messages, documentation...). 
Créez, modifiez, imprimez et archivez au bureau ou à la maison : courrier, 
mailing, documents, manuels, thèses, articles, rapports... mais de plus 
réutilisez tous ces textes ultérieurement en les modifiant si nécessaire. 
TEXTOMAT est utilisable IMMEDIATEMENT même par un débutant. Un 
menu en FRANÇAIS en bas d'écran garantie une utilisation aisée. 


TEXTOMAT intègre toutes les fonctions du traitement de texte (tabulatign, 
recherche, remplacement, insertion, manipulation de paragraphes...). 


TEXTOMAT comprend également des fonctions de CALCUL, de MAILING... 


TEXTOMAT s'adapte à tout type d'imprimante grâce à une fonction 
particulière. 


TEXTOMAT fonctionne en mode 80 colonnes. 


TEXTOMAT affiche et imprime évidemment tous les ACCENTS de la langue 
française. 


TEXTOMAT est écrit en langage machine ce qui assure rapidité et qualité 
du programme, celui-ci utilisant toutes les caractéristiques propres aux 
CPC 464 et 664. 


Enfin TEXTOMAT peut relire les données de la gestion de fichiers 
DATAMAT, pour effectuer des mailings et des lettres type personnalisées. 


TEXTOMAT est livré en version 464 et 664 sur la même disquette. 


TEXTOMAT est donc bien la solution TRAITEMENT DE TEXTE pour 
AMSTRAD CPC. 


Système requis : 
Version disquette : 
+ Un Amstrad CPC 664 ou 
un Amstrad 464 avec unité de disquette DDI. 
+ Une imprimante (facultatif). 


Réf. AM305 
©) Copyright DATA BECKER 
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Numéro d’imprimeur : 508010 
















1C111-3 





75-25-90 101121 
—1 402 7ALS74 

GND [nl 

AS low 

A13 ÆE 

A12 ot tt 


A11 
A1Q 


LCT/DIR 
CHD D) SIDE 
FLTR/STEP 
"FRN/SEXK 


DBLRELRESGERGEGESEE 


aie) 





12 1c110-8 


745132 











CDi0! 
06836Y002 1 Pre 6 ” 



























RESET IC104 ICt11-1 SIDE 1 RECRUE) ES) fe 
ROIS rit | | [ARÎTE PROTELT __ 6 
Fe pue T TR 39 RE 
RALRITE GATE ____[e "= 
MRITE DATA Hi 
[Lo Le re) 
rt Eu RENE 
EP RECTION SEC 4 
BND 
S 


101038 
74L5240 


0! at 
KTC181SY 


=. 6 
1C105-2 | D —5 
74LS08 680 3 








= o g 
és b ol. > 1C1 104 1C109-4 
E É Len J4L5132 + 74LS136 
ra OT £& | 
= + 
8| #18) 816] 8 8| =|= à 2 2 v- 
ol ol ol ol ol ot ol ol 8 ol 010 
IC102 PCB101 
MF00048 


NOTE: THIS SCHEMATIC DIAGRAM 1S THE LATEST AT THE TIME 
OF PRINTINGS AND SUBJECT TO CHANGE WITHOUT NOTICE: 


IMPRIMÉ EN FRANCE 


TOUT SUR LE LECTEUR DE DISQUETTE AMSTRAD. 


Tout sur la programmation et la gestion des accès disque avec 
l'AMSTRAD CPC 664 ou l'AMSTRAD CPC 464 et le FLOOPY 
DDI-1 ! Ce livre vous fournira de nombreuses informations et de 
précieux conseils ainsi que les listings d'utilitaires ultra perfor- 
mants comme un MONITEUR DISQUE, une GESTION DE 


FICHIERS RELATIFS... Vous trouverez également le LISTING 
du DOS commenté, la description électronique de l'appareil et 
une gestion de fichier complète. De nombreux exemples 
accompagnent chaque chapitre. 


Aperçu des différents sujets traités : 

— Tout sur les fichiers séquentiels 
Listing d'une gestion de fichier 
Explication des messages d'erreurs 
Gestion de fichiers relatifs (!) 
Listing du DOS commenté 
Programmation des contrôleurs 
Moniteur-Disque 
Gestionnaire de Disque 
Programmation en Assembleur 
Utilisation de CP/M 


Ce livre est le must absolu pour tous les heureux possesseurs 
d'un lecteur de disquette AMSTRAD. 


Prix : 149F TTC 
ISBN : 2-86899-022-3 Réf. : ML 127 
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